IBM System 360 User Manual page 91
Operating system: time sharing option terminal
Hide thumbs
Also See for System 360:
- Operating manual (48 pages) ,
- Manual (44 pages) ,
- Hardware maintenance manual (508 pages)
Table of Contents
Advertisement
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
Advertisement
Table of Contents
