Specifications

Chapter 7. Using awscmd 91
* READ FIRST FILE
F MVC BUFFER2(80),BLANKS
MVC BUFFER2+0080(80),BLANKS
MVC BUFFER2+0160(80),BLANKS
MVI SECB,X'00' ZERO THE ECB
LA 1,SCCREAD ADDRESS of CCW(S)
ST 1,SIOB+16 PLACE IN IOB
EXCP SIOB READ
WAIT ECB=SECB WAIT FOR IT
TM SECB,X'20' COMPLETED OK?
BO F1 IF YES, BRANCH
TM SIOB+12,X'01' TAPE MARK?
BO G IF YES, BRANCH
B ERR5
F1 MVC BUFFER(132),BLANKS
MVC BUFFER(09),=C'COMMAND: '
MVC BUFFER+09(132),BUFFER2
PUT PRINT,BUFFER
B F LOOP UNTIL ALL RECORDS READ
* READ SECOND FILE
G MVC BUFFER2(80),BLANKS
MVC BUFFER2+0080(80),BLANKS
MVC BUFFER2+0160(80),BLANKS
MVI SECB,X'00' ZERO THE ECB
LA 1,SCCREAD ADDRESS of CCW(S)
ST 1,SIOB+16 PLACE IN IOB
EXCP SIOB READ
WAIT ECB=SECB WAIT FOR IT
TM SECB,X'20' COMPLETED OK?
BO G1 IF YES, BRANCH
TM SIOB+12,X'01' TAPE MARK?
BO H IF YES, BRANCH
B ERR5
G1 MVC BUFFER(132),BLANKS
MVC BUFFER(09),=C'STDOUT: '
MVC BUFFER+09(132),BUFFER2
PUT PRINT,BUFFER
B G LOOP UNTIL ALL RECORDS READ
* READ THIRD FILE
H MVC BUFFER2(80),BLANKS
MVC BUFFER2+0080(80),BLANKS
MVC BUFFER2+0160(80),BLANKS
MVI SECB,X'00' ZERO THE ECB
LA 1,SCCREAD ADDRESS of CCW(S)
ST 1,SIOB+16 PLACE IN IOB
EXCP SIOB READ
WAIT ECB=SECB WAIT FOR IT
TM SECB,X'20' COMPLETED OK?
BO H1 IF YES, BRANCH
TM SIOB+12,X'01' TAPE MARK?
BO J IF YES, BRANCH
B ERR5
H1 MVC BUFFER(132),BLANKS
MVC BUFFER(09),=C'STDERR: '
MVC BUFFER+09(132),BUFFER2