IBM System/360

r----------------------------------------------------------------------,
IPROC 1,NAME
IALLOCATE DATASET(&NAME •• PLI) FILE(SYSIN)
IALLOCATE DATASET(&NAME •• LIST) FILE(SYSPRINT) BLOCK(125) SPACE(300,lOO)
IALLOCATE DATASET(&NAME •• OBJ) FILE(SYSLIN) BLOCK(SO) SPACE(250,lOO)
IALLOCATE FILE(SYSUT1) BLOCK(1024) SPACE(60,60)
IALLOCATE FILE(SYSUT3) BLOCK(SO) SPACE(250,100)
ICALL 'SYS1.LINKLIB(IEMAA)' 'LIST,ATR,XREF,STMr,MACRO'
IWHEN SYSRC(LE 4) EXBC LOGO '&NAME.' LIST
IFREE FILE(SYSUT1,SYSUT3)
IDELETE &NAME •• OBJ
ImD
L _____________________________________________________________________ _
Figure 14.6. A Command PIOcedure for a Compile-Load-Go Sequence
r----------------------------------------------------------------------,
lexec plif 'derv' list
IALLOCATE DATASET(OERV.PLI) FILE(SYSIN)
IALLOCATE DATASET(OERV.LIST) FILE(SYSPRINT) BLOCK(SO) SPACE(300,100)
IALLOCATE DATASET(OERV.OBJ) FILE (SYSLIN) BLOCK(SO) SPACE(250,lOO)
IALLOCATE FILE(SYSUT1) BLOCK(1024) SPACE(60,60)
IALLOCATE FILE(SYSUT3) BLOCK(SO) SPACE(250,100)
ICALL 'SYS1.LINKLIB(IEMAA)' 'LIST,ATR,XREF,STMT,MACRO'
IWHEN SYSRC(LE 4) EXEC LOGO 'DERV' LIST
IFREE FILE(SYSUT1,SYSUT3,SYSIN,SYSPRINT)
IALLOCATE DATASET(*) FILB(SYSIN)
IALLOCATE DATASET(*) FILE(SYSPRINT)
ILOADGO DERV.OBJ PLILIB
L _____________________________________________________________________ _
Figure 14.7. Using a Compile-Lead-Go Command Procedure
Using and Writing Command Procedures S5.4