//*-----------------------------------------------                      00010000
//* DENNA PROCEDUR ANVÄNDS FÖR ATT KOMPILERA                            00020000
//* OLIKA TYPER AV COBOL-PROGRAM.                                       00030000
//*-----------------------------------------------                      00040000
//PIGYWCL PROC LNGPRFX='SYS1.IGY',                                      00050000
//             LIBPRFX='SYS1.CEE',                                      00051000
//             INDEX='F1CIST.CICS'                                      00060000
//*                                                                     00061000
//COBOL  EXEC  PGM=IGYCRCTL,REGION=0M,PARMDD=COBPARM                    00070000
//COBPARM  DD  *                                                        00080000
  NOMAP,RULES(NOENDP)                                                   00090000
//*                                                                     00100000
//STEPLIB  DD DSN=&LNGPRFX..SIGYCOMP,DISP=SHR                           00110000
//         DD DSN=&LIBPRFX..SCEERUN,DISP=SHR                            00120000
//         DD DSN=&LIBPRFX..SCEERUN2,DISP=SHR                           00130000
//         DD DSN=SYS1.IGY.SIGYCOMP,DISP=SHR                            00140000
//         DD DSN=F1CIST.CICS.SDFHLOAD,DISP=SHR                         00150000
//SYSPRINT DD SYSOUT=*                                                  00160000
//SYSLIB   DD DSN=&SYSUID..KURS.&KURSID..COPYLIB,DISP=SHR               00170000
//         DD DSN=&SYSUID..KURS.&KURSID..COBOL,DISP=SHR                 00180000
//         DD DSN=&LIBPRFX..SCEESAMP,DISP=SHR                           00181000
//SYSIN    DD DSN=&SYSUID..KURS.&KURSID..COBOL(&PGMNAMN),DISP=SHR       00190000
//*                                                                     00200000
//SYSLIN   DD DSN=&&LOADSET,UNIT=SYSALLDA,                              00210000
//            DISP=(MOD,PASS),SPACE=(CYL,(1,1))                         00220000
//SYSUT1   DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00230000
//SYSUT2   DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00240000
//SYSUT3   DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00250000
//SYSUT4   DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00260000
//SYSUT5   DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00270000
//SYSUT6   DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00280000
//SYSUT7   DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00290000
//SYSUT8   DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00300000
//SYSUT9   DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00310000
//SYSUT10  DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00320000
//SYSUT11  DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00330000
//SYSUT12  DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00340000
//SYSUT13  DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00350000
//SYSUT14  DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00360000
//SYSUT15  DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00370000
//SYSMDECK DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00380000
//*                                                                     00390000
//     IF COBOL.RC < 5 THEN                                             00400000
//*                                                                     00410000
//LKED   EXEC PGM=IEWBLINK,REGION=0M                                    00420000
//SYSLIB   DD DSN=&LIBPRFX..SCEELKED,DISP=SHR                           00430000
//         DD DSN=&LIBPRFX..SCEELKEX,DISP=SHR                           00440000
//         DD DSN=&SYSUID..KURS.&KURSID..LOADLIB,DISP=SHR               00450000
//         DD DSN=&INDEX..SDFHLOAD,DISP=SHR                             00460000
//         DD DSN=&INDEX..SDFHEXCI,DISP=SHR                             00470000
//SYSPRINT DD SYSOUT=*                                                  00480000
//SYSLIN   DD DSNAME=&&LOADSET,DISP=(OLD,DELETE)                        00490000
//         DD DDNAME=SYSIN                                              00500000
//SYSLMOD  DD DSN=&SYSUID..KURS.&KURSID..LOADLIB(&PGMNAMN),             00510000
//            DISP=OLD                                                  00520000
//SYSUT1   DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))                           00530000
//      ENDIF                                                           00540000