Retro1.org codex

*NOSEQ 
.PROC,HOSTCPY,FN=SSTVSN,FC=1,EQ=027,CI=NO/YES.
.**       HOSTCPY PERFORMS PREPROCESSING OF THE 5870/5970
.*        SYSTEM SOFTWARE TAPE (SST).  HOSTCPY ALSO IS
.*        USED TO TRANSMIT SOURCE FILES (FSL, JSL, CMD)
.*        IN EBCDIC CARDIMAGE FORMAT.
.*
.*        COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
.*
.*        PARAMETERS
.*
.*        FN     SPECIFIES THE FILE CONTAINING THE SST.
.*               IF THE FILE IS ASSIGNED TO THE CONTROL POINT,
.*                           THIS IS THE NAME OF THE FILE.
.*               IF THE FILE IS UNASSIGNED, THE PROCEDURE ASSUMES
.*                           THIS IS THE VSN OF THE TAPE AND WILL
.*                           REQUEST THE TAPE FOR PROCESSING.
.*        FC     SPECIFIES THE TOTAL NUMBER OF FILES ON THE SST.
.*        EQ     SPECIFIES THE EST ORDINAL OF THE 5870/5970 TO
.*                           RECEIVE THE FILE.  THIS PARAMETER
.*                           MUST BE SPECIFIED AS A THREE DIGIT
.*                           OCTAL NUMBER - I.E., 027.
.*        CI     IF PRESENT, DECLARES THAT THE FILE SPECIFIED BY
.*                           *FN* IS A CARDIMAGE (80 COLUMN) FILE
.*                           CONTAINING EBCDIC DATA.
.*
.*        HOSTCPY MUST BE RUN AS A SYSTEM ORIGIN JOB.
.*
$IF,(OT.NE.SYO),L005.
  $REVERT,ABORT. ** HOSTCPY MUST RUN AS SYSTEM ORIGIN **
$ENDIF,L005.
$IF,(.NOT.NUM(EQ)),L010.
  $RETURN,ZZZZDIR.
  $REVERT,ABORT. ** EST ORDINAL MUST BE NUMERIC **
$ENDIF,L010.
$IF,(.NOT.NUM(FC)),L020.
  $RETURN,ZZZZDIR.
  $REVERT,ABORT. ** FILE COUNT MUST BE NUMERIC **
$ENDIF,L020.
$IF,(.NOT.FILE(FN,AS)),L100.
  $REQUEST,SST,VSN=FN,F=L,D=PE,LB=KU.
  $REWIND,SST.
  $SKIPF,SST,FC.
  $SKIPFB,SST,1.
  $COPY,SST,FTS,,,D,1,1093.
  $UNLOAD,SST.
$ELSE,L100.
  $RENAME,FTS=FN.
$ENDIF,L100.
$HSTCOPY(ZZZZDIR)
$RETURN,ZZZZDIR.
$REVERT. ** HOSTCPY COMPLETE **
$EXIT.
$REVERT,ABORT. ** HOSTCPY FAILED **
.DATA,ZZZZDIR
EQ
.IF,$CI$ .#EQ. $YES$,CRD.
TRUE
.ELSE,CRD.
FALSE
.ENDIF,CRD.
*WEOR