Specifications

Chapter 7. Using awscmd 93
B CLOSE
NOINPUT WTO 'NO PARAMETER OR SYSIN FOUND'
B RETURN
*
* CONSTANTS, WORK AREAS
*
SAVEAREA DC 18F'0'
SEC2 DC F'200' TWO SECONDS
STAPEO DCB DSORG=PS,MACRF=(E),DDNAME=TAPE
PRINT DCB DSORG=PS,DDNAME=SYSPRINT,MACRF=(PM),LRECL=132, X
BLKSIZE=13200,RECFM=FB
SYSIN DCB DSORG=PS,DDNAME=SYSIN,MACRF=(GM),LRECL=80, X
RECFM=FB,EODAD=D
DS D'0'
SCCWRITE DC X'01',AL3(BUFFER),X'20',AL3(100)
SCCWTM DC X'1F',AL3(0),X'20',AL3(1)
SCCREW DC X'07',AL3(BLANKS),X'20',AL3(1)
SCCREAD DC X'02',AL3(BUFFER2),X'20',AL3(3200)
SECB DC F'0'
SIOB DC X'42000000'
DC A(SECB) A(ECB)
DC 2F'0' CSW
DC A(0) A(CCW)
DC A(STAPEO) A(DCB)
DC 2F'0'
*
PARM DC CL100' ' PARM CAN BE UP 100 CHARACTERS
PARMFLG DC X'00' 00=PARM, FF=SYSIN
MOVPARM MVC BUFFER(0),2(1) USED BY EX INSTRUCTION
BLANKS DC CL132' '
BUFFER DC CL132' '
LTORG
BUFFER2 DS CL4000' '
END
/*
//*.SYSLMOD DD DISP=OLD,DSN=OGDEN.LIB.LOAD(AWSCMDX)
//G.TAPE DD UNIT=(560,,DEFER),LABEL=(1,BLP),VOL=SER=123456,DSN=X
//G.SYSPRINT DD SYSOUT=*
//G.SYSIN DD *
tee xfile2
This is a line
This is line 2
This is line 3
/*