Sending Data, Fixing Problems
Posted: Sun Nov 25, 2012 12:13 pm
This code is from a school powerpoint presentation from my class and I need to correctly make sense of it to help me complete a lab. My question here is: how do I tell the system about all the variables?
COPY SETUP
OPEN (SYSUT1,PARM)
LA 2,SYSUT1
USING IHADCB,2
LH 3,DCBLRECL
LA 2,SYSUT2
STH 3,DCBLRECL
LHI 4,27998
SRDA 4,32
DR 4,3
MR 4,3
STH 5,DCBBLKSI
OPEN (SYSUT2,OUTPUT)
DCBD
SYSUT1 DCB DDNAME=SYSUT1, X
DSORG=PS, X
MACRF=GM, X
RECFM=FB
SYSUT2 DCB DDNAME=SYSUT2, X
DSORG=PS, X
MACRF=PM, X
RECFM=FB
END
OPEN (SYSUT1,PARM)
LA 2,SYSUT1
USING IHADCB,2
LH 3,DCBLRECL
LA 2,SYSUT2
STH 3,DCBLRECL
LHI 4,27998
SRDA 4,32
DR 4,3
MR 4,3
STH 5,DCBBLKSI
OPEN (SYSUT2,OUTPUT)
DCBD
SYSUT1 DCB DDNAME=SYSUT1, X
DSORG=PS, X
MACRF=GM, X
RECFM=FB
SYSUT2 DCB DDNAME=SYSUT2, X
DSORG=PS, X
MACRF=PM, X
RECFM=FB
END