2 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.hostcpy +++|*NOSEQ
00002  M01S00002.hostcpy +++|.PROC,HOSTCPY,FN=SSTVSN,FC=1,EQ=027,CI=NO/YES.
00003  M01S00003.hostcpy +++|.**       HOSTCPY PERFORMS PREPROCESSING OF THE 5870/5970
00004  M01S00004.hostcpy +++|.*        SYSTEM SOFTWARE TAPE (SST).  HOSTCPY ALSO IS
00005  M01S00005.hostcpy +++|.*        USED TO TRANSMIT SOURCE FILES (FSL, JSL, CMD)
00006  M01S00006.hostcpy +++|.*        IN EBCDIC CARDIMAGE FORMAT.
00007  M01S00001.281l803 +++|.*
00008  M01S00002.281l803 +++|.*        COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00007.hostcpy +++|.*
00010  M01S00008.hostcpy +++|.*        PARAMETERS
00011  M01S00009.hostcpy +++|.*
00012  M01S00010.hostcpy +++|.*        FN     SPECIFIES THE FILE CONTAINING THE SST.
00013  M01S00011.hostcpy +++|.*               IF THE FILE IS ASSIGNED TO THE CONTROL POINT,
00014  M01S00012.hostcpy +++|.*                           THIS IS THE NAME OF THE FILE.
00015  M01S00013.hostcpy +++|.*               IF THE FILE IS UNASSIGNED, THE PROCEDURE ASSUMES
00016  M01S00014.hostcpy +++|.*                           THIS IS THE VSN OF THE TAPE AND WILL
00017  M01S00015.hostcpy +++|.*                           REQUEST THE TAPE FOR PROCESSING.
00018  M01S00016.hostcpy +++|.*        FC     SPECIFIES THE TOTAL NUMBER OF FILES ON THE SST.
00019  M01S00017.hostcpy +++|.*        EQ     SPECIFIES THE EST ORDINAL OF THE 5870/5970 TO
00020  M01S00018.hostcpy +++|.*                           RECEIVE THE FILE.  THIS PARAMETER
00021  M01S00019.hostcpy +++|.*                           MUST BE SPECIFIED AS A THREE DIGIT
00022  M01S00020.hostcpy +++|.*                           OCTAL NUMBER - I.E., 027.
00023  M01S00021.hostcpy +++|.*        CI     IF PRESENT, DECLARES THAT THE FILE SPECIFIED BY
00024  M01S00022.hostcpy +++|.*                           *FN* IS A CARDIMAGE (80 COLUMN) FILE
00025  M01S00023.hostcpy +++|.*                           CONTAINING EBCDIC DATA.
00026  M01S00024.hostcpy +++|.*
00027  M01S00025.hostcpy +++|.*        HOSTCPY MUST BE RUN AS A SYSTEM ORIGIN JOB.
00028  M01S00026.hostcpy +++|.*
00029  M01S00027.hostcpy +++|$IF,(OT.NE.SYO),L005.
00030  M01S00028.hostcpy +++|  $REVERT,ABORT. ** HOSTCPY MUST RUN AS SYSTEM ORIGIN **
00031  M01S00029.hostcpy +++|$ENDIF,L005.
00032  M01S00030.hostcpy +++|$IF,(.NOT.NUM(EQ)),L010.
00033  M01S00031.hostcpy +++|  $RETURN,ZZZZDIR.
00034  M01S00032.hostcpy +++|  $REVERT,ABORT. ** EST ORDINAL MUST BE NUMERIC **
00035  M01S00033.hostcpy +++|$ENDIF,L010.
00036  M01S00034.hostcpy +++|$IF,(.NOT.NUM(FC)),L020.
00037  M01S00035.hostcpy +++|  $RETURN,ZZZZDIR.
00038  M01S00036.hostcpy +++|  $REVERT,ABORT. ** FILE COUNT MUST BE NUMERIC **
00039  M01S00037.hostcpy +++|$ENDIF,L020.
00040  M01S00038.hostcpy +++|$IF,(.NOT.FILE(FN,AS)),L100.

Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00039.ns2421  ---|  $REQUEST,SST,VSN=FN,F=L,D=PE,LB=KU.
00042  M01S00001.ns2421  +++|  $REQUEST,SST,VSN=FN,F=L,D=PE,LB=KU.
00043  M01S00040.hostcpy +++|  $REWIND,SST.
00044  M01S00041.hostcpy +++|  $SKIPF,SST,FC.
00045  M01S00042.hostcpy +++|  $SKIPFB,SST,1.

Seq #  *Modification Id* Act 
----------------------------+
00046  M02S00043.ns2421  ---|  $COPY,SST,FTS,,,D,1.
00047  M01S00002.ns2421  +++|  $COPY,SST,FTS,,,D,1,1093.
00048  M01S00044.hostcpy +++|  $UNLOAD,SST.
00049  M01S00045.hostcpy +++|$ELSE,L100.
00050  M01S00046.hostcpy +++|  $RENAME,FTS=FN.
00051  M01S00047.hostcpy +++|$ENDIF,L100.
00052  M01S00048.hostcpy +++|$HSTCOPY(ZZZZDIR)
00053  M01S00049.hostcpy +++|$RETURN,ZZZZDIR.
00054  M01S00050.hostcpy +++|$REVERT. ** HOSTCPY COMPLETE **
00055  M01S00051.hostcpy +++|$EXIT.
00056  M01S00052.hostcpy +++|$REVERT,ABORT. ** HOSTCPY FAILED **
00057  M01S00053.hostcpy +++|.DATA,ZZZZDIR
00058  M01S00054.hostcpy +++|EQ
00059  M01S00055.hostcpy +++|.IF,$CI$ .#EQ. $YES$,CRD.
00060  M01S00056.hostcpy +++|TRUE
00061  M01S00057.hostcpy +++|.ELSE,CRD.
00062  M01S00058.hostcpy +++|FALSE
00063  M01S00059.hostcpy +++|.ENDIF,CRD.
00064  M01S00060.hostcpy +++|*WEOR