| Code: |
//COMPJCL6 JOB 1AD40G12,'COMPCOB-COMPLINK',NOTIFY=&SYSUID //************************************************************* //*COMPILAR Y LINKEDITAR //************************************************************* //STEP0 EXEC IGYWCL,PARM.COBOL='LIB,APOST,XREF,MAP,OFFSET' //* ----------------------------------------------------------- //* JCL PARA COMPILAR PGM DE COBOL (SIN DB2 Y SIN CICS) //* ----------------------------------------------------------- //* ----------------------------------------------------------- //COBOL.SYSLIB DD DISP=SHR,DSN=SANDY.COBOL.COPYLIB //COBOL.SYSIN DD DISP=SHR,DSN=SANDY.COBOL.SRCLIB(COB002) //LKED.SYSLMOD DD DISP=OLD,DSN=SANDY.COBOL.LOADLIB(COB002) /* // |
| sandeep kumar302 wrote: | ||||
|
| Joerg.Findeisen wrote: |
Thanks for replying back and the hints for coding. I am so used to that sequence that I had forgotten to rearrange it prior to posting.  |
| Quote: |
The used form of this statement //LKED.SYSIN DD is nothing else but EMPTY DD STATEMENT, with NO PARAMETERS DEFINED. This bug is causing the error INVALID RECFM FOR DDNAME SYSLIN CONCATENATION NUMBER 2 because within the JCL PROC this //SYSIN is concatenated under //SYSLIN, with number 2. |
| prino wrote: |
| A bit of REXX... |
| daveporcelan wrote: |
| Nic, I am NOT missing - last_nodes.0 = 3 I leave it off on purpose. My method allows adding more entries without having to set this value as well. I have been burned in the past. |
| Code: |
| "EXECIO * DISKR SYSIN (STEM last_nodes. FINIS " |
| Code: |
| //SYSIN * IS%A* IF%B*X IB%88* /* |
| Code: |
| list='item1 item2 item3' do listn=1 to words(list) call sub(word(list,listn)) end |
| Code: |
| OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(121:+0,TO=ZD,LENGTH=4)) |
| Code: |
| OUTREC OVERLAY=(121:+0,TO=ZD,LENGTH=4) |
| Code: |
| //PARSE EXEC PGM=SORT,PARM='MSG=AP' //SYSOUT DD SYSOUT=* //SORTIN DD DISP=SHR,DSN=&SYSUID..SYSPRINT //SORTOUT DD SYSOUT=*,LRECL=170 //SYSIN DD * OPTION VLSCMP SORT FIELDS=(6,44,CH,D) INCLUDE COND=((6,15,SS,EQ,C'GDG BASE ------,NONVSAM -------'),OR, 42,16,CH,EQ,C'CREATION--------') INREC IFTHEN=(WHEN=GROUP, BEGIN=(6,15,SS,EQ,C'GDG BASE ------,NONVSAM -------'), PUSH=(126:22,44)), IFTHEN=(WHEN=(42,16,CH,EQ,C'CREATION--------'), BUILD=(1,4,C'?',126,44,X,58,8,UFF,M11,LENGTH=7,DATE3),HIT=NEXT), IFTHEN=(WHEN=(5,1,CH,EQ,C'?'), PARSE=(%00=(STARTAFT=C'.PDUMP.',ENDBEFR=C'.',FIXLEN=1)), OVERLAY=(50:%00,65:6,44,JFY=(SHIFT=RIGHT), 65:65,35,JFY=(SHIFT=LEFT)),HIT=NEXT), IFTHEN=(WHEN=(101,1,CH,EQ,C'G',AND, (102,4,ZD,GE,+0,AND,102,4,ZD,LE,+9999),AND, 106,1,CH,EQ,C'V',AND,107,2,ZD,EQ,+0), BUILD=(1,4,C'Z',6,44,50,1,51,7,58,7, 58,7,Y4T,DATEDIFF,51,7,Y4T,65,35,9X)), IFTHEN=(WHEN=(5,1,CH,EQ,C'?'), BUILD=(1,4,C'?',6,44,50,1,51,7,58,7, 58,7,Y4T,DATEDIFF,51,7,Y4T,6,44)) OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(121:+0,TO=ZD,LENGTH=4)) END |
| Code: |
| //PARSE EXEC PGM=SORT,PARM='MSG=AP' //SYSOUT DD SYSOUT=* //SORTIN DD DISP=SHR,DSN=&SYSUID..SYSPRINT //SORTOUT DD SYSOUT=*,LRECL=170 //SYSIN DD * OPTION VLSCMP SORT FIELDS=(6,44,CH,D) INCLUDE COND=((6,15,SS,EQ,C'GDG BASE ------,NONVSAM -------'),OR, 42,16,CH,EQ,C'CREATION--------') INREC IFTHEN=(WHEN=GROUP, BEGIN=(6,15,SS,EQ,C'GDG BASE ------,NONVSAM -------'), PUSH=(126:22,44)), IFTHEN=(WHEN=(42,16,CH,EQ,C'CREATION--------'), BUILD=(1,4,C'?',126,44,X,58,8,UFF,M11,LENGTH=7,DATE3),HIT=NEXT), IFTHEN=(WHEN=(5,1,CH,EQ,C'?'), PARSE=(%00=(STARTAFT=C'.PDUMP.',ENDBEFR=C'.',FIXLEN=1)), OVERLAY=(50:%00,65:6,44,JFY=(SHIFT=RIGHT), 65:65,35,JFY=(SHIFT=LEFT)),HIT=NEXT), IFTHEN=(WHEN=(101,1,CH,EQ,C'G',AND, (102,4,ZD,GE,+0,AND,102,4,ZD,LE,+9999),AND, 106,1,CH,EQ,C'V',AND,107,2,ZD,EQ,+0), BUILD=(1,4,C'Z',6,44,50,1,51,7,58,7, 58,7,Y4T,DATEDIFF,51,7,Y4T,65,35,9X)), IFTHEN=(WHEN=(5,1,CH,EQ,C'?'), BUILD=(1,4,C'?',6,44,50,1,51,7,58,7, 58,7,Y4T,DATEDIFF,51,7,Y4T,6,44)) OUTREC OVERLAY=(121:+0,TO=ZD,LENGTH=4) END |
