Deck HOSTCPY

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.hostcpy +++|*NOSEQ
00002  M00S00002.hostcpy +++|.PROC,HOSTCPY,FN=SSTVSN,FC=1,EQ=027,CI=NO/YES.
00003  M00S00003.hostcpy +++|.**       HOSTCPY PERFORMS PREPROCESSING OF THE 5870/5970
00004  M00S00004.hostcpy +++|.*        SYSTEM SOFTWARE TAPE (SST).  HOSTCPY ALSO IS
00005  M00S00005.hostcpy +++|.*        USED TO TRANSMIT SOURCE FILES (FSL, JSL, CMD)
00006  M00S00006.hostcpy +++|.*        IN EBCDIC CARDIMAGE FORMAT.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|.*
00008  M01S00002.281l803 +++|.*        COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M00S00007.hostcpy +++|.*
00010  M00S00008.hostcpy +++|.*        PARAMETERS
00011  M00S00009.hostcpy +++|.*
00012  M00S00010.hostcpy +++|.*        FN     SPECIFIES THE FILE CONTAINING THE SST.
00013  M00S00011.hostcpy +++|.*               IF THE FILE IS ASSIGNED TO THE CONTROL POINT,
00014  M00S00012.hostcpy +++|.*                           THIS IS THE NAME OF THE FILE.
00015  M00S00013.hostcpy +++|.*               IF THE FILE IS UNASSIGNED, THE PROCEDURE ASSUMES
00016  M00S00014.hostcpy +++|.*                           THIS IS THE VSN OF THE TAPE AND WILL
00017  M00S00015.hostcpy +++|.*                           REQUEST THE TAPE FOR PROCESSING.
00018  M00S00016.hostcpy +++|.*        FC     SPECIFIES THE TOTAL NUMBER OF FILES ON THE SST.
00019  M00S00017.hostcpy +++|.*        EQ     SPECIFIES THE EST ORDINAL OF THE 5870/5970 TO
00020  M00S00018.hostcpy +++|.*                           RECEIVE THE FILE.  THIS PARAMETER
00021  M00S00019.hostcpy +++|.*                           MUST BE SPECIFIED AS A THREE DIGIT
00022  M00S00020.hostcpy +++|.*                           OCTAL NUMBER - I.E., 027.
00023  M00S00021.hostcpy +++|.*        CI     IF PRESENT, DECLARES THAT THE FILE SPECIFIED BY
00024  M00S00022.hostcpy +++|.*                           *FN* IS A CARDIMAGE (80 COLUMN) FILE
00025  M00S00023.hostcpy +++|.*                           CONTAINING EBCDIC DATA.
00026  M00S00024.hostcpy +++|.*
00027  M00S00025.hostcpy +++|.*        HOSTCPY MUST BE RUN AS A SYSTEM ORIGIN JOB.
00028  M00S00026.hostcpy +++|.*
00029  M00S00027.hostcpy +++|$IF,(OT.NE.SYO),L005.
00030  M00S00028.hostcpy +++|  $REVERT,ABORT. ** HOSTCPY MUST RUN AS SYSTEM ORIGIN **
00031  M00S00029.hostcpy +++|$ENDIF,L005.
00032  M00S00030.hostcpy +++|$IF,(.NOT.NUM(EQ)),L010.
00033  M00S00031.hostcpy +++|  $RETURN,ZZZZDIR.
00034  M00S00032.hostcpy +++|  $REVERT,ABORT. ** EST ORDINAL MUST BE NUMERIC **
00035  M00S00033.hostcpy +++|$ENDIF,L010.
00036  M00S00034.hostcpy +++|$IF,(.NOT.NUM(FC)),L020.
00037  M00S00035.hostcpy +++|  $RETURN,ZZZZDIR.
00038  M00S00036.hostcpy +++|  $REVERT,ABORT. ** FILE COUNT MUST BE NUMERIC **
00039  M00S00037.hostcpy +++|$ENDIF,L020.
00040  M00S00038.hostcpy +++|$IF,(.NOT.FILE(FN,AS)),L100.

Line S00039 Modification History
`M01` (Removed by)	`ns2421`

Seq #  *Modification Id* Act 
----------------------------+
00041  M01S00039.ns2421  ---|  $REQUEST,SST,VSN=FN,F=L,D=PE,LB=KU.

Line S00001 Modification History
`M01` (Added by)	`ns2421`

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

Line S00043 Modification History
`M01` (Removed by)	`ns2421`

Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00043.ns2421  ---|  $COPY,SST,FTS,,,D,1.

Line S00002 Modification History
`M01` (Added by)	`ns2421`

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00002.ns2421  +++|  $COPY,SST,FTS,,,D,1,1093.
00048  M00S00044.hostcpy +++|  $UNLOAD,SST.
00049  M00S00045.hostcpy +++|$ELSE,L100.
00050  M00S00046.hostcpy +++|  $RENAME,FTS=FN.
00051  M00S00047.hostcpy +++|$ENDIF,L100.
00052  M00S00048.hostcpy +++|$HSTCOPY(ZZZZDIR)
00053  M00S00049.hostcpy +++|$RETURN,ZZZZDIR.
00054  M00S00050.hostcpy +++|$REVERT. ** HOSTCPY COMPLETE **
00055  M00S00051.hostcpy +++|$EXIT.
00056  M00S00052.hostcpy +++|$REVERT,ABORT. ** HOSTCPY FAILED **
00057  M00S00053.hostcpy +++|.DATA,ZZZZDIR
00058  M00S00054.hostcpy +++|EQ
00059  M00S00055.hostcpy +++|.IF,$CI$ .#EQ. $YES$,CRD.
00060  M00S00056.hostcpy +++|TRUE
00061  M00S00057.hostcpy +++|.ELSE,CRD.
00062  M00S00058.hostcpy +++|FALSE
00063  M00S00059.hostcpy +++|.ENDIF,CRD.
00064  M00S00060.hostcpy +++|*WEOR