cdc:nos2.source:opl.opl871:deck:submt
Deck SUBMT
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.submt +++| IDENT SUBMT 00002 M00S00002.submt +++| SST 00003 M00S00003.submt +++| ENTRY SUBMT 00004 M00S00004.submt +++| ENTRY BTRAN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2624 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00001.ns2624 +++| ENTRY ROUTE 00006 M00S00005.submt +++| SYSCOM B1
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | ns2440 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00006.ns2440 ---|*COMMENT SUBMIT AND BATCH TRANSACTION ROUTINES. 00008 M01S00007.ns2440 ---| SUBMT TITLE SUBMT - TRANSACTION SUBSYSTEM SUBMIT ROUTINES.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2440 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.ns2440 +++| TITLE SUBMT - TRANSACTION SUBSYSTEM SUBMIT ROUTINES. 00010 M01S00002.ns2440 +++|*COMMENT SUBMT - SUBMIT AND BTRAN ROUTINES.
| Line S00008 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1979.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00012 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00013 M00S00009.submt +++| SPACE 4 00014 M00S00010.submt +++|***** SUBMT - TRANSACTION/BATCH AND BATCH/TRANSACTION SUBMITS. 00015 M00S00011.submt +++|* 00016 M00S00012.submt +++|* W. E. MARTIN. 79/03/16. 00017 M00S00013.submt +++| SPACE 4 00018 M00S00014.submt +++|* COMMON TEXTS. 00019 M00S00015.submt +++| 00020 M00S00016.submt +++| 00021 M00S00017.submt +++|*CALL COMCMAC 00022 M00S00018.submt +++|*CALL COMKMAC 00023 M00S00019.submt +++|*CALL COMSSSD 00024 M00S00020.submt +++| LIST X 00025 M00S00021.submt +++|*CALL COMKTSC 00026 M00S00022.submt +++| LIST -X
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2624 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00023.submt +++| SUBMT SPACE 4,20 00067 M00S00024.submt +++|*** SUBMT - SUBMIT JOB TO BATCH SUB-SYSTEM. 00068 M00S00025.submt +++|* 00069 M00S00026.submt +++|* ENTRY FORMAT - 00070 M00S00027.submt +++|* 00071 M00S00028.submt +++|* FORTRAN EXTENDED - 00072 M00S00029.submt +++|* 00073 M00S00030.submt +++|* CALL SUBMT(JOBADDR). 00074 M00S00031.submt +++|* 00075 M00S00032.submt +++|* COBOL - 00076 M00S00033.submt +++|* 00077 M00S00034.submt +++|* ENTER SUBMT USING JOBADDR. 00078 M00S00035.submt +++|* 00079 M00S00036.submt +++|* WHERE JOBADDR = ADDRESS OF JOB DATA TO BE SUBMITTED 00080 M00S00037.submt +++|* IN CONTROL-WORD WRITE FORMAT. 00081 M00S00038.submt +++|* 00082 M00S00039.submt +++|* MACROS SUBMT. 00083 M00S00040.submt +++| 00084 M00S00041.submt +++| 00085 M00S00042.submt +++| VFD 42/0LSUBMT,18/SUBMT 00086 M00S00043.submt +++| 00087 M00S00044.submt +++| SUBMT SUBR ENTRY/EXIT 00088 M00S00045.submt +++| SX1 X1 SET ADDRESS OF JOB DATA 00089 M00S00046.submt +++| SUBMT X1 *SUBMIT* JOB 00090 M00S00047.submt +++| EQ SUBMTX RETURN 00091 M00S00048.submt +++| BTRAN SPACE 4,50 00092 M00S00049.submt +++|*** BTRAN - SUBMIT A TRANSACTION FROM A BATCH JOB. 00093 M00S00050.submt +++|* 00094 M00S00051.submt +++|* ENTRY FORMAT - 00095 M00S00052.submt +++|* 00096 M00S00053.submt +++|* FORTRAN EXTENDED - 00097 M00S00054.submt +++|* 00098 M00S00055.submt +++|* CALL BTRAN ( TRAN, STATUS ) 00099 M00S00056.submt +++|* 00100 M00S00057.submt +++|* COBOL - 00101 M00S00058.submt +++|* 00102 M00S00059.submt +++|* ENTER BTRAN USING TRAN, STATUS. 00103 M00S00060.submt +++|* 00104 M00S00061.submt +++|* WHERE TRAN = ADDRESS OF FIRST WORD OF TRANSACTION TO 00105 M00S00062.submt +++|* SUBMIT TO *TAF* IN THE FOLLOWING FORMAT - 00106 M00S00063.submt +++|* 00107 M00S00064.submt +++|* STATUS = ADDRESS WHERE *BTRAN* STATUS IS TO BE 00108 M00S00065.submt +++|* RETURNED ( OPTIONAL FOR COBOL ). 00109 M00S00066.submt +++|* 00110 M00S00067.submt +++|*T 42/0,18/LENGTH.
Figure
00111 M00S00068.submt +++|*T, 60/ TRANSACTION INPUT DATA (LIMIT 620 CHARACTERS)
Figure
00112 M00S00069.submt +++|* 00113 M00S00070.submt +++|* LENGTH - LENGTH OF DATA PLUS HEADER IN WORDS. 00114 M00S00071.submt +++|* 00115 M00S00072.submt +++|* DATA - THE DATA MUST BE IN A FORMAT ACCEPTABLE TO THE 00116 M00S00073.submt +++|* *INITIAL* TASK. THE 620 CHARACTER LIMIT IS A MAXIMUM, 00117 M00S00074.submt +++|* AND THE SYSTEM MAY BE ASSEMBLED FOR LESS. 00118 M00S00075.submt +++|* 00119 M00S00076.submt +++|* EXIT (X6) = ( STATUS ). 00120 M00S00077.submt +++|* WHERE STATUS EQUALS BATCH JOB STATUS CODES. 00121 M00S00078.submt +++|* 00122 M00S00079.submt +++|* USES A - 1, 2, 6, 7. 00123 M00S00080.submt +++|* X - 0, 1, 2, 5, 6, 7. 00124 M00S00081.submt +++|* B - 1. 00125 M00S00082.submt +++|* 00126 M00S00083.submt +++|* MACROS BTRAN, RECALL. 00127 M00S00084.submt +++| 00128 M00S00085.submt +++| 00129 M00S00086.submt +++| VFD 42/0LBTRAN,18/BTRAN 00130 M00S00087.submt +++| 00131 M00S00088.submt +++| BTR3 SA1 BTRA STATUS ADDRESS 00132 M00S00089.submt +++| ZR X1,BTRANX IF NO ADDRESS PROVIDED 00133 M00S00090.submt +++| BX7 X6 SET RETURN STATUS 00134 M00S00091.submt +++| SA7 X1 00135 M00S00092.submt +++| 00136 M00S00093.submt +++| BTRAN SUBR ENTRY/EXIT 00137 M00S00094.submt +++| SB1 1 00138 M00S00095.submt +++| BX6 X6-X6 CLEAR STATUS ADDRESS 00139 M00S00096.submt +++| SA2 A1+B1 00140 M00S00097.submt +++| ZR X2,BTR1 IF NO SECOND PARAMETER 00141 M00S00098.submt +++| BX6 X2 SAVE STATUS ADDRESS 00142 M00S00099.submt +++| BTR1 SA6 BTRA 00143 M00S00100.submt +++| SX2 X1 00144 M00S00101.submt +++| BTRAN X2 SUBMIT TRANSACTION TO TAF 00145 M00S00102.submt +++| EQ BTR3 SET RETURN STATUS 00146 M00S00103.submt +++| 00147 M00S00104.submt +++| BTRA CON 0 STORAGE FOR RETURN STATUS 00148 M00S00105.submt +++| SPACE 4 00149 M00S00106.submt +++| END
cdc/nos2.source/opl.opl871/deck/submt.txt · Last modified: by 127.0.0.1