DL/I application programs
An example of the macro statements that can be used to define the characteristics associated with DL/I application programs is provided.
In the following example, each DL/I application program is shown with associated transaction codes and macros.
Characteristics Column
to define Macro statements prepared 72
Programs and
Transaction
Codes
HSBASK41 APPLCTN PSB=HSBASK41,PGMTYPE=BATCH
(Batch)
HIMAJC01 APPLCTN PSB=HIMAJC01
TPPL1 TRANSACT CODE=TPPL1,PRTY=(8,8)
HIMAJC03 APPLCTN PSB=HIMAJC03
TUBE TRANSACT CODE=TUBE,PRTY=(8,8), X
SPA=100,MODE=SNGL
TUBFD TRANSACT CODE=TUBFD,PRTY=(8,8), X
SPA=100, X
MODE=SNGL
TUBFC TRANSACT CODE=TUBFC,PRTY=(8,8), X
SPA=100, X
MODE=SNGL
TUBMA TRANSACT CODE=TUBMA,PRTY=(8,8), X
SPA=20000,MODE=SN GL
HIMALM01 APPLCTN PSB=HIMALM01, X
SCHDTYP=PARALLEL
DLI TRANSACT CODE=DLI,PRTY=(5,10,5), X
PROCLIM=(10,10), X
MSGTYPE=(SNGLSEG,RESPONSE)
ICS TRANSACT CODE=ICS,PRTY=(5,12,5), X
PROCLIM=(10,100), X
MODE=SNGL
DLN TRANSACT CODE=DLN,PRTY=(0,8,3), X
PROCLIM=(10,100)
IMS TRANSACT CODE=IMS,PRTY=(5,12,5), X
PROCLIM=(1,100), X
MSGTYPE=SNGLSEG,PARLIM=1
CONALTR APPLCTN PSB=CONALTR
CONAL TRANSACT CODE=CONAL,MODE=SNGL, X
PRTY=(8,8),SPA=100
CONALF TRANSACT CODE=CONALF,MODE=SNGL, X
PRTY=(8,8), X
SPA=100
LKMDFS00 APPLCTN PSB=LKMDFS00
STL TRANSACT CODE=STL,PRTY=(5,12,5), X
PROCLIM=(8,100),INQ=YES
LKMDFS10 APPLCTN PSB=LKMDFS10,PGMTYPE=BATCH
LKM TRANSACT CODE=LKM,PRTY=(0,0), X
MSGTYPE=SNGLSEG
MR1 APPLCTN PSB=MR1
MR1 TRANSACT CODE=MR1,PRTY=(8,8)
MR2 APPLCTN PSB=MR2
MR2 TRANSACT CODE=MR2,PRTY=(8,8)
MR3 APPLCTN PSB=MR3
MR3 TRANSACT CODE=MR3,PRTY=(8,8)
MR4 APPLCTN PSB=MR4
MR4 TRANSACT CODE=MR4,PRTY=(8,8)
MR5 APPLCTN PSB=MR5
MR5 TRANSACT CODE=MR5,PRTY=(8,8)Characteristics Column
to define Macro statements prepared 72
Programs and
Transaction
Codes
MR6 APPLCTN PSB=MR6
MR6 TRANSACT CODE=MR6,PRTY=(8,8)
TESTIMSD APPLCTN PSB=TESTIMSD
TSTCONV TRANSACT CODE=TSTCONV,PRTY=(8,8), X
SPA=100,MODE=SN GL
TSTNORM TRANSACT CODE=TSTNORM,PRTY=(8,8)
REQIMSD APPLCTN PSB=REQIMSD
TREQ TRANSACT CODE=TREQ,PRTY=(8,8), X
SPA=100,MODE=SNGL
LOADLT APPLCTN PSB=LOADLT,PGMTYPE=BATCH
(Batch)
LOADTT APPLCTN PSB=LOADTT,PGMTYPE=BATCH
(Batch)
STLECHO APPLCTN PSB=STLECHO
ECHO TRANSACT CODE=ECHO,PRTY=(5,10,5), X
PROCLIM=(10,10), X
MSGTYPE=SNGLSEG
ECHO TRANSACT CODE=ECHO,PRTY=(5,10,5), X
PROCLIM=(10,10)
MR8 APPLCTN PSB=MR8
MR8 TRANSACT CODE=MR8,PRTY=(8,8)Characteristics Column
to define Macro statements prepared 72
Programs and
Transaction
Codes
RESIDENT PSBS
RESPSB1 APPLCTN PSB=RESPSB1,RESIDENT
RESPSB TRANSACT CODE=RESPSB,PRTY=(8,8)
RESBAL01 APPLCTN PSB=RESBAL01, X
SCHDTYP=PARALLEL,RESIDENT
BAL01 TRANSACT CODE=(BAL01,BAL02,BAL03), X
PRTY=(8,8)
BAL02
BAL03
RESBAL02 APPLCTN PSB=RESBAL02, X
SCHDTYP=PARALLEL
BALTRAN TRANSACT CODE=BALTRAN,PRTY=(8,8), X
PARLIM=1
PSBEXINT APPLCTN PSB=PSBEXINT
TRANEXNT TRANSACT CODE=TRANEXNT,PRTY=(8,8)
INTCON APPLCTN PSB=INTCON
ANY TRANSACT CODE=ANY,PRTY=(8,8),SCHD=3
HI TRANSACT CODE=HI,PRTY=(8,8),SCHD=2
EQHI TRANSACT CODE=EQHI,PRTY=(8,8), X
SCHD=1
NXCLASS TRANSACT CODE=NXCLASS,PRTY=(8,8), X
SCHD=4
CUTOFF APPLCTN PSB=CUTOFF
SIX TRANSACT CODE=SIX,PRTY=(6,6)
SEVEN TRANSACT CODE=SEVEN,PRTY=(7,7)
EIGHT TRANSACT CODE=EIGHT,PRTY=(8,8)
NINE TRANSACT CODE=NINE,PRTY=(9,9)
NXTCLASS APPLCTN PSB=NXTCLASS,PGMTYPE=(,,2)
ONE TRANSACT CODE=ONE,PRTY=(1,1)The system includes one 3600 application program.
Characteristics Column
to define Macro statements prepared 72
Programs and
Transaction
Codes
TEST3600 APPLCTN DOPT,PSB=TEST3600, X
PGMTYPE=TP
CIFINQ TRANSACT CODE=CIFINQ,PRTY=(1,2,2), X
MSGTYPE=SNGLSEG, X
PROCLIM=(,30),INQUIRY=YES, X
SEGNO=256,SEGSIZE=4096
SAVDBT TRANSACT CODE=(SAVDBT,SAVDPT), X
PRTY=(1,2,2), X
MSGTYPE=SNGLSEG, X
PROCLIM=(,30),INQUIRY=NO, X
SEGNO=10,SEGSIZE=80
BRNCHTOT TRANSACT CODE=BRNCHTOT, X
PRTY=(1,2,2),MSGTYPE=SNGLSEG, X
PROCLIM=(,30),INQUIRY=YES, X
SEGNO=256,SEGSIZE=132
PGM3741 APPLCTN PSB=PGM3741,PGMTYPE=TP
TX3741 TRANSACT CODE=TX3741
DFSSAM02 APPLCTN PSB=DFSSAM02, X
PGMTYPE=(TP,,4)
PART TRANSACT CODE=PART,PRTY=(7,10,2), X
INQ=(YES,NORECOV)
DFSSAM03 APPLCTN PSB=DFSSAM03
DSPINV TRANSACT CODE=DSPINV,PRTY=(7,10,2), X
INQ=YES,MSGTYPE=(,,4 )
DFSSAM04 APPLCTN PSB=DFSSAM04,PGMTYPE=(,,4)
ADDPART TRANSACT CODE=(ADDPART,DLETPART), X
PRTY=(7,10,2)
DLETPART
ADDINV TRANSACT CODE=(ADDINV,DLETINV), X
PRTY=(7,10,2),MSGTYPE=(,,5)
DLETINV
DFSSAM05 APPLCTN PSB=DFSSAM05,PGMTYPE=(,,3)
CLOSE TRANSACT CODE=CLOSE,PRTY=(7,10,2)
DFSSAM06 APPLCTN PSB=DFSSAM06
DISBURSE TRANSACT CODE=DISBURSE, X
PRTY=(7,10,2),MSGTYPE=(,,2)
DFSSAM07 APPLCTN PSB=DFSSAM07,PGMTYPE=(,,2)
DSPALLI TRANSACT CODE=DSPALLI, X
PRTY=(7,10,2),INQ=YES