/*
/* SAMPLE CLIST:
/* CALL COBOL COMPILER AND ISPF BROWSER WHEN OCCURED COMPILE ERROR.
/*
PROC 0
SET &SYSOUTTRAP = 1                /* HIDE IKJ56247I WARNING MSG */
FREE DD(SYSUT1,SYSUT2,SYSUT3,SYSUT4,SYSUT5,SYSUT6,SYSUT7,SYSLIN)
FREE DD(SYSUT8,SYSUT9,SYSUT10,SYSUT11,SYSUT12,SYSUT13,SYSUT14)
FREE DD(SYSUT15,SYSMDECK)
FREE DD(SYSPRINT,SYSTERM,SYSIN)
SET &SYSOUTTRAP = 0
ALLOCATE DD(SYSPRINT) NEW TRACKS SPACE(1 1)
ALLOCATE DD(SYSTERM) DA(*)
ALLOCATE DD(SYSUT1) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSUT2) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSUT3) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSUT4) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSUT5) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSUT6) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSUT7) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSUT8) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSUT9) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSUT10) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSUT11) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSUT12) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSUT13) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSUT14) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSUT15) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSMDECK) NEW TRACKS SPACE(5 5)
ALLOCATE DD(SYSLIN) NEW TRACKS SPACE(1)
WRITENR INPUT COMPILE MEMBER ==>
READ &MEMBER
ALLOCATE DD(SYSIN) DA(CLIST(&MEMBER))
CALL 'IGY630.SIGYCOMP(IGYCRCTL)' 'TERM'
SET &COMPCC = &LASTCC
IF &COMPCC NE 0 THEN +
   DO                              /* IF ERROR, SHOW COMPILE LIST */
     LISTDSI SYSPRINT FILE
     ISPEXEC BROWSE DATASET('&SYSDSNAME') VOLUME(&SYSVOLUME)
   END
IF &COMPCC LE 4 THEN +
   DO                              /* IF SUCESSFUL, CALL BINDER */
     ALLOCATE DD(SYSLIB) DA('CEE.SCEELKED') SHR
     ALLOCATE DD(SYSLMOD) DA(LOAD(CUSTOMER)) SHR
     CALL *(IEWL)
     WRITE COMPLETION CODE(COMPILE = &COMPCC, LKED = &LASTCC)
     FREE DD(SYSLIB,SYSLMOD)
   END
FREE DD(SYSUT1,SYSUT2,SYSUT3,SYSUT4,SYSUT5,SYSUT6,SYSUT7,SYSLIN)
FREE DD(SYSUT8,SYSUT9,SYSUT10,SYSUT11,SYSUT12,SYSUT13,SYSUT14)
FREE DD(SYSUT15,SYSMDECK)
FREE DD(SYSPRINT,SYSTERM,SYSIN)
ALLOCATE DD(SYSPRINT) DA(*)
ALLOCATE DD(SYSIN) DA(*)