Deck SUBMT

3 Modifications

Source

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.

Figure

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