Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.submt +++| IDENT SUBMT
00002 M01S00002.submt +++| SST
00003 M01S00003.submt +++| ENTRY SUBMT
00004 M01S00004.submt +++| ENTRY BTRAN
00005 M01S00001.ns2624 +++| ENTRY ROUTE
00006 M01S00005.submt +++| SYSCOM B1
| Line S00006 Modification History |
M01 (Added by) | submt |
M02 (Updated by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00007 M02S00006.ns2440 ---|*COMMENT SUBMIT AND BATCH TRANSACTION ROUTINES.
| Line S00007 Modification History |
M01 (Added by) | submt |
M02 (Updated by) | ns2440 |
Seq # *Modification Id* Act
----------------------------+
00008 M02S00007.ns2440 ---| SUBMT TITLE SUBMT - TRANSACTION SUBSYSTEM SUBMIT ROUTINES.
00009 M01S00001.ns2440 +++| TITLE SUBMT - TRANSACTION SUBSYSTEM SUBMIT ROUTINES.
00010 M01S00002.ns2440 +++|*COMMENT SUBMT - SUBMIT AND BTRAN ROUTINES.
| Line S00008 Modification History |
M01 (Added by) | submt |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00011 M02S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1979.
00012 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00013 M01S00009.submt +++| SPACE 4
00014 M01S00010.submt +++|***** SUBMT - TRANSACTION/BATCH AND BATCH/TRANSACTION SUBMITS.
00015 M01S00011.submt +++|*
00016 M01S00012.submt +++|* W. E. MARTIN. 79/03/16.
00017 M01S00013.submt +++| SPACE 4
00018 M01S00014.submt +++|* COMMON TEXTS.
00019 M01S00015.submt +++|
00020 M01S00016.submt +++|
00021 M01S00017.submt +++|*CALL COMCMAC
00022 M01S00018.submt +++|*CALL COMKMAC
00023 M01S00019.submt +++|*CALL COMSSSD
00024 M01S00020.submt +++| LIST X
00025 M01S00021.submt +++|*CALL COMKTSC
00026 M01S00022.submt +++| LIST -X
00027 M01S00002.ns2624 +++| ROUTE SPACE 4,10
00028 M01S00003.ns2624 +++|*** ROUTE - PROCESS *ROUTE* COMMAND.
00029 M01S00004.ns2624 +++|*
00030 M01S00005.ns2624 +++|* *ROUTE* IS USED TO PLACE FILES INTO THE INPUT OR
00031 M01S00006.ns2624 +++|* OUTPUT QUEUES.
00032 M01S00007.ns2624 +++|*
00033 M01S00008.ns2624 +++|* ENTRY FORMAT -
00034 M01S00009.ns2624 +++|*
00035 M01S00010.ns2624 +++|* FORTRAN EXTENDED -
00036 M01S00011.ns2624 +++|*
00037 M01S00012.ns2624 +++|* CALL ROUTE(LFN,LENGTH,STAT,P1,P1V,P2,P2V,...PN,PNV)
00038 M01S00013.ns2624 +++|*
00039 M01S00014.ns2624 +++|* COBOL -
00040 M01S00015.ns2624 +++|*
00041 M01S00016.ns2624 +++|* ENTER ROUTE USING LFN, LENGTH, STAT, P1, P1V, P2, P2V,
00042 M01S00017.ns2624 +++|* ...PN, PNV.
00043 M01S00018.ns2624 +++|*
00044 M01S00019.ns2624 +++|* WHERE LFN = FWA OF DATA TO ROUTE.
00045 M01S00020.ns2624 +++|*
00046 M01S00021.ns2624 +++|* LENGTH = LENGTH OF DATA IN CM WORDS, AND ON WORD
00047 M01S00022.ns2624 +++|* BOUNDARY.
00048 M01S00023.ns2624 +++|*
00049 M01S00024.ns2624 +++|* STAT = STATUS RETURN ADDRESS.
00050 M01S00025.ns2624 +++|*
00051 M01S00026.ns2624 +++|* P1...PN = *ROUTE* PARAMETERS.
00052 M01S00027.ns2624 +++|*
00053 M01S00028.ns2624 +++|* P1V...PNV = *ROUTE* PARAMETER VALUES.
00054 M01S00029.ns2624 +++|*
00055 M01S00030.ns2624 +++|* USES X - 1.
00056 M01S00031.ns2624 +++|*
00057 M01S00032.ns2624 +++|* MACROS SYSTEM.
00058 M01S00033.ns2624 +++|
00059 M01S00034.ns2624 +++|
00060 M01S00035.ns2624 +++| VFD 42/0LROUTE,18/ROUTE
00061 M01S00036.ns2624 +++|
00062 M01S00037.ns2624 +++| ROUTE SUBR ENTRY/EXIT
00063 M01S00038.ns2624 +++| SX1 A1 FWA OF PARAMETER LIST
00064 M01S00039.ns2624 +++| SYSTEM CTI,R,X1,30B ROUTE FILE
00065 M01S00040.ns2624 +++| EQ ROUTEX RETURN
00066 M01S00023.submt +++| SUBMT SPACE 4,20
00067 M01S00024.submt +++|*** SUBMT - SUBMIT JOB TO BATCH SUB-SYSTEM.
00068 M01S00025.submt +++|*
00069 M01S00026.submt +++|* ENTRY FORMAT -
00070 M01S00027.submt +++|*
00071 M01S00028.submt +++|* FORTRAN EXTENDED -
00072 M01S00029.submt +++|*
00073 M01S00030.submt +++|* CALL SUBMT(JOBADDR).
00074 M01S00031.submt +++|*
00075 M01S00032.submt +++|* COBOL -
00076 M01S00033.submt +++|*
00077 M01S00034.submt +++|* ENTER SUBMT USING JOBADDR.
00078 M01S00035.submt +++|*
00079 M01S00036.submt +++|* WHERE JOBADDR = ADDRESS OF JOB DATA TO BE SUBMITTED
00080 M01S00037.submt +++|* IN CONTROL-WORD WRITE FORMAT.
00081 M01S00038.submt +++|*
00082 M01S00039.submt +++|* MACROS SUBMT.
00083 M01S00040.submt +++|
00084 M01S00041.submt +++|
00085 M01S00042.submt +++| VFD 42/0LSUBMT,18/SUBMT
00086 M01S00043.submt +++|
00087 M01S00044.submt +++| SUBMT SUBR ENTRY/EXIT
00088 M01S00045.submt +++| SX1 X1 SET ADDRESS OF JOB DATA
00089 M01S00046.submt +++| SUBMT X1 *SUBMIT* JOB
00090 M01S00047.submt +++| EQ SUBMTX RETURN
00091 M01S00048.submt +++| BTRAN SPACE 4,50
00092 M01S00049.submt +++|*** BTRAN - SUBMIT A TRANSACTION FROM A BATCH JOB.
00093 M01S00050.submt +++|*
00094 M01S00051.submt +++|* ENTRY FORMAT -
00095 M01S00052.submt +++|*
00096 M01S00053.submt +++|* FORTRAN EXTENDED -
00097 M01S00054.submt +++|*
00098 M01S00055.submt +++|* CALL BTRAN ( TRAN, STATUS )
00099 M01S00056.submt +++|*
00100 M01S00057.submt +++|* COBOL -
00101 M01S00058.submt +++|*
00102 M01S00059.submt +++|* ENTER BTRAN USING TRAN, STATUS.
00103 M01S00060.submt +++|*
00104 M01S00061.submt +++|* WHERE TRAN = ADDRESS OF FIRST WORD OF TRANSACTION TO
00105 M01S00062.submt +++|* SUBMIT TO *TAF* IN THE FOLLOWING FORMAT -
00106 M01S00063.submt +++|*
00107 M01S00064.submt +++|* STATUS = ADDRESS WHERE *BTRAN* STATUS IS TO BE
00108 M01S00065.submt +++|* RETURNED ( OPTIONAL FOR COBOL ).
00109 M01S00066.submt +++|*
00110 M01S00067.submt +++|*T 42/0,18/LENGTH.
00111 M01S00068.submt +++|*T, 60/ TRANSACTION INPUT DATA (LIMIT 620 CHARACTERS)
Figure
00112 M01S00069.submt +++|*
00113 M01S00070.submt +++|* LENGTH - LENGTH OF DATA PLUS HEADER IN WORDS.
00114 M01S00071.submt +++|*
00115 M01S00072.submt +++|* DATA - THE DATA MUST BE IN A FORMAT ACCEPTABLE TO THE
00116 M01S00073.submt +++|* *INITIAL* TASK. THE 620 CHARACTER LIMIT IS A MAXIMUM,
00117 M01S00074.submt +++|* AND THE SYSTEM MAY BE ASSEMBLED FOR LESS.
00118 M01S00075.submt +++|*
00119 M01S00076.submt +++|* EXIT (X6) = ( STATUS ).
00120 M01S00077.submt +++|* WHERE STATUS EQUALS BATCH JOB STATUS CODES.
00121 M01S00078.submt +++|*
00122 M01S00079.submt +++|* USES A - 1, 2, 6, 7.
00123 M01S00080.submt +++|* X - 0, 1, 2, 5, 6, 7.
00124 M01S00081.submt +++|* B - 1.
00125 M01S00082.submt +++|*
00126 M01S00083.submt +++|* MACROS BTRAN, RECALL.
00127 M01S00084.submt +++|
00128 M01S00085.submt +++|
00129 M01S00086.submt +++| VFD 42/0LBTRAN,18/BTRAN
00130 M01S00087.submt +++|
00131 M01S00088.submt +++| BTR3 SA1 BTRA STATUS ADDRESS
00132 M01S00089.submt +++| ZR X1,BTRANX IF NO ADDRESS PROVIDED
00133 M01S00090.submt +++| BX7 X6 SET RETURN STATUS
00134 M01S00091.submt +++| SA7 X1
00135 M01S00092.submt +++|
00136 M01S00093.submt +++| BTRAN SUBR ENTRY/EXIT
00137 M01S00094.submt +++| SB1 1
00138 M01S00095.submt +++| BX6 X6-X6 CLEAR STATUS ADDRESS
00139 M01S00096.submt +++| SA2 A1+B1
00140 M01S00097.submt +++| ZR X2,BTR1 IF NO SECOND PARAMETER
00141 M01S00098.submt +++| BX6 X2 SAVE STATUS ADDRESS
00142 M01S00099.submt +++| BTR1 SA6 BTRA
00143 M01S00100.submt +++| SX2 X1
00144 M01S00101.submt +++| BTRAN X2 SUBMIT TRANSACTION TO TAF
00145 M01S00102.submt +++| EQ BTR3 SET RETURN STATUS
00146 M01S00103.submt +++|
00147 M01S00104.submt +++| BTRA CON 0 STORAGE FOR RETURN STATUS
00148 M01S00105.submt +++| SPACE 4
00149 M01S00106.submt +++| END