Specifications

Chapter 7. Using awscmd 89
pseudo-tape device remains busy with the preceeding WTM operation until the Linux
command completes.)
The TSO test environment options (in the compile and link steps) are not required.
//OGDEN90 JOB 1,OGDEN,MSGCLASS=X
// EXEC ASMACLG,PARM.C='NOXREF,TEST',PARM.L='NOLIST,NOMAP,TEST'
//* PARM.G='ls -al '
//C.SYSIN DD *
PRINT NOGEN
*
* SEND COMMAND TO LINUX VIA AWSCMD, READ THE RESULT
* JES2 MUST ALLOW BLP FOR THE JOB CLASS THAT IS USED
*
* $T JOBCLASS(A),BLP=YES CAN BE USED FOR TEMPORARY CHANGES
*
* MOUNT 580,VOL=(NL,123456)
* awsmount 580 -o /z/123456
*
*
*//TAPE DD UNIT=(580,,DEFER),LABEL=(1,BLP),VOL=SER=XXXXXX,DSN=X
*//SYSPRINT DD SYSOUT=* (OUTPUT FROM LINUX)
*
AWSCMDX CSECT
STM 14,12,12(13) SAVE CALLER’S REGISTERS
LR 12,15 USE ENTRY-POINT BASE REGISTER
USING AWSCMDX,12
ST 13,SAVEAREA+4 CALLER’S SAVEAREA ADDRESS
LA 2,SAVEAREA MY SAVEAREA ADDRESS
ST 2,8(13) STORE A(MY SAVE AREA) IN CALLER
LR 13,2 MY SAVEAREA IN R13
LR 11,12 SECOND BASE REGISTER
A 11,=F'4096'
USING AWSCMDX+4096,11 NOT REALLY NEEDED
* CHECK PARM DATA
L 1,0(1) GET ADDRESS OF PARM FIELD
LH 2,0(1) GET LENGTH OF PARM FIELD
LTR 2,2 CHECK IT
BZ NOPARM BRANCH IF LENGTH = ZERO
BCTR 2,0 SUBTRACT 1 FROM LENGTH
EX 2,MOVPARM MOVE PARM TO MY WORK AREA
B A GO USE PARM DATA
* TRY SYSIN FOR THE INPUT DATA
NOPARM OPEN (SYSIN,(INPUT))
TM SYSIN+48,X'10' DID OPEN WORK?
BZ NOINPUT IF NOT, BRANCH
MVI PARMFLG,X'FF' REMEMBER TO USE SYSIN
* OPEN PSEUDO-TAPE DEVICE AND SYSPRINT
A OPEN STAPEO ASSUME BLP ON DD STATEMENT
TM STAPEO+48,X'10' DID OPEN WORK?
BZ ERR10 IF NOT, BRANCH
A10 OPEN (PRINT,(OUTPUT))
TM PRINT+48,X'10' DID OPEN WORK?
BZ ERR11
* REWIND THE PSEUDO TAPE
B MVI SECB,X'00' ZERO MY ECB