cdc:nos2.source:opl.opl871:deck:hostcpy
Deck HOSTCPY
2 Modifications
Source
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.
Line S00039 Modification History | |
---|---|
M01 (Added by) | hostcpy |
M02 (Updated by) | ns2421 |
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.
Line S00043 Modification History | |
---|---|
M01 (Added by) | hostcpy |
M02 (Updated by) | ns2421 |
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
cdc/nos2.source/opl.opl871/deck/hostcpy.txt ยท Last modified: by 127.0.0.1