IBM System/360 User Manual

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

IBM System/360 Specifications

General

Brand	IBM
Model	System/360
Category	Desktop
Language	English