Deck LIMITS

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.limits  +++|          IDENT  LIMITS
00002  M01S00002.limits  +++|          ENTRY  ITL
00003  M01S00003.limits  +++|          ENTRY  IIO

Line S00004 Modification History
`M01` (Added by)	`limits`
`M02` (Updated by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.ns2440  ---|*COMMENT  CHANGE TASK LIMITS.
00005  M01S00001.ns2440  +++|          TITLE  LIMITS - CHANGE TASK LIMITS.
00006  M01S00002.ns2440  +++|*COMMENT  LIMITS - CHANGE TASK LIMITS.

Line S00005 Modification History
`M01` (Added by)	`limits`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00005.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1974.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.

Line S00006 Modification History
`M01` (Added by)	`limits`
`M02` (Updated by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00006.ns2440  ---| LIMITS   TITLE  LIMITS - CHANGE TASK LIMITS.
00010  M01S00007.limits  +++|          SPACE  4
00011  M01S00008.limits  +++|***       LIMITS - CHANGE TASK LIMITS.
00012  M01S00009.limits  +++|*         G.R.HUNTER. 73/06/29.
00013  M01S00010.limits  +++|          SPACE 4
00014  M01S00011.limits  +++|*CALL     COMKMAC
00015  M01S00012.limits  +++|*CALL     COMSPRD
00016  M01S00013.limits  +++|          SPACE  4
00017  M01S00014.limits  +++|***       ITL - CHANGE CPU TIME LIMIT.
00018  M01S00015.limits  +++|*
00019  M01S00016.limits  +++|*         CALL FORMAT
00020  M01S00017.limits  +++|*
00021  M01S00018.limits  +++|*         FORTRAN EXTENDED
00022  M01S00019.limits  +++|*                CALL ITL(NTL)
00023  M01S00020.limits  +++|*         COBOL
00024  M01S00021.limits  +++|*                ENTER ITL USING NTL.
00025  M01S00022.limits  +++|*
00026  M01S00023.limits  +++|*         WHERE NTL = NEW TIME LIMIT IN XJ TIME UNITS
00027  M01S00024.limits  +++|
00028  M01S00025.limits  +++|
00029  M01S00026.limits  +++|ITL       PS
00030  M01S00027.limits  +++|          SX1    X1          GET NEW TIME LIMIT
00031  M01S00028.limits  +++|          ITL    X1          CHANGE TIME LIMIT
00032  M01S00029.limits  +++|          EQ     ITL         RETURN
00033  M01S00030.limits  +++| IIO      SPACE  4
00034  M01S00031.limits  +++|***       IIO - CHANGE TASK I/O LIMIT.
00035  M01S00032.limits  +++|*
00036  M01S00033.limits  +++|*         CALL FORMAT
00037  M01S00034.limits  +++|*
00038  M01S00035.limits  +++|*         FORTRAN EXTENDED
00039  M01S00036.limits  +++|*                CALL IIO(NIO)
00040  M01S00037.limits  +++|*         COBOL
00041  M01S00038.limits  +++|*                ENTER IIO USING NIO.
00042  M01S00039.limits  +++|*
00043  M01S00040.limits  +++|*         WHERE NIO = NEW I/O LIMIT
00044  M01S00041.limits  +++|
00045  M01S00042.limits  +++|
00046  M01S00043.limits  +++|IIO       PS
00047  M01S00044.limits  +++|          SX1    X1          GET NEW I/O LIMIT
00048  M01S00045.limits  +++|          IIO    X1          CHANGE I/O LIMIT
00049  M01S00046.limits  +++|          EQ     IIO         RETURN
00050  M01S00047.limits  +++|
00051  M01S00048.limits  +++|          END
00052  M01S00014.limits  +++|LOGIN

Line S04909 Modification History
`M01` (Yanked) (Updated by)	`@050118`
`M02` (Yanked) (Updated by)	`@037804`
`M03` (Yanked) (Added by)	`@016467`
`M04` (Yanked) (Added by)	`@021742`

Seq #  *Modification Id* Act 
----------------------------+
00053  M04S04909.@021742 +++|E
00054  M01S00002.ns2440  +++|*COMMENT  LOGIN - DETERMINE TERMINAL LOGIN STATUS.

Line S00006 Modification History
`M01` (Added by)	`limits`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00055  M02S00006.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.     1979.
00056  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00057  M01S00007.limits  +++|          SPACE  4
00058  M01S00008.limits  +++|*****     LOGIN - DETERMINE LOGIN STATUS.
00059  M01S00009.limits  +++|*
00060  M01S00010.limits  +++|*         W.E. MARTIN.       79/03/30.
00061  M01S00011.limits  +++|          SPACE  4
00062  M01S00012.limits  +++|*         COMMOM TEXT.
00063  M01S00013.limits  +++|
00064  M01S00014.limits  +++|
00065  M01S00015.limits  +++|*CALL     COMCMAC
00066  M01S00016.limits  +++|*CALL     COMKMAC
00067  M01S00017.limits  +++|*CALL     COMSPRD
00068  M01S00018.limits  +++| LOGIN    SPACE  4,35
00069  M01S00019.limits  +++|***       LOGIN - DETERMINE TERMINAL LOGIN STATUS.
00070  M01S00020.limits  +++|*
00071  M01S00021.limits  +++|*         LOGIN ALLOWS A TASK TO DETERMINE WHETHER OR NOT A TERMINAL
00072  M01S00022.limits  +++|*         IS CURRENTLY LOGGED INTO THE TRANSACTION SUB-SYSTEM.  THIS
00073  M01S00023.limits  +++|*         IS NECESSARY TO KNOW, SINCE A *SEND* TO A NON-ACTIVE
00074  M01S00024.limits  +++|*         TERMINAL CAN RESULT IN A TASK-S BEING ABORTED BY THE
00075  M01S00025.limits  +++|*         EXECUTIVE.
00076  M01S00026.limits  +++|*
00077  M01S00027.limits  +++|*         NOTE - IF NO PARAMETERS ARE ENCOUNTERED IN THE ARGUMENT
00078  M01S00028.limits  +++|*                LIST, THE TASK IS ABORTED WITH A PARAMETER LIST
00079  M01S00029.limits  +++|*                STRUCTURE ERROR.
00080  M01S00030.limits  +++|*
00081  M01S00031.limits  +++|*         CALL FORMAT -
00082  M01S00032.limits  +++|*
00083  M01S00033.limits  +++|*         FORTRAN EXTENDED - CALL LOGIN (TERMINAL, STATUS)
00084  M01S00034.limits  +++|*
00085  M01S00035.limits  +++|*         COBOL - ENTER LOGIN USING TERMINAL, STATUS.
00086  M01S00036.limits  +++|*
00087  M01S00037.limits  +++|*                 TERMINAL = TERMINAL WHICH IS TO BE INQUIRED ABOUT.
00088  M01S00038.limits  +++|*
00089  M01S00039.limits  +++|*                 STATUS   = LOCATION WHICH IS TO HAVE THE TERMINAL
00090  M01S00040.limits  +++|*                            LOGGIN STATUS RETURNED.
00091  M01S00041.limits  +++|*
00092  M01S00042.limits  +++|*
00093  M01S00043.limits  +++|*         USES   A - 0, 1, 2, 3, 5, 6, 7.
00094  M01S00044.limits  +++|*                X - 0, 1, 2, 3, 5, 6, 7.
00095  M01S00045.limits  +++|*                B - 1, 3.
00096  M01S00046.limits  +++|*
00097  M01S00047.limits  +++|*         CALLS  ZFN.
00098  M01S00048.limits  +++|*
00099  M01S00049.limits  +++|*         MACROS ARGERR, TSIM.
00100  M01S00050.limits  +++|
00101  M01S00051.limits  +++|
00102  M01S00052.limits  +++|          VFD    42/0LLOGIN,18/LOGIN
00103  M01S00053.limits  +++|
00104  M01S00054.limits  +++| LOGIN    SUBR               ENTRY/EXIT
00105  M01S00055.limits  +++|          SX6    A0          SAVE (A0)
00106  M01S00056.limits  +++|          MX0    42
00107  M01S00057.limits  +++|          SA6    LGNA
00108  M01S00058.limits  +++|          SB1    1
00109  M01S00059.limits  +++|          SX7    B0+
00110  M01S00060.limits  +++|          SA7    LGNC        CLEAR WORKING STORAGE
00111  M01S00061.limits  +++|          SA7    LGND
00112  M01S00062.limits  +++|
00113  M01S00063.limits  +++|*         PROCESS TERMINAL NAME.
00114  M01S00064.limits  +++|
00115  M01S00065.limits  +++|          SA3    X1
00116  M01S00066.limits  +++|          UX2,B3 X3
00117  M01S00067.limits  +++|          ZR     X1,LGN4     IF NO ARGUMENTS - ABORT TASK
00118  M01S00068.limits  +++|          NZ     B3,LGN1     IF NOT COBOL COMPUTATIONAL-1 ARGUMENT
00119  M01S00069.limits  +++|          SX1    B0+
00120  M01S00070.limits  +++|          ZR     X2,LGN2     IF ZERO TERMINAL NAME
00121  M01S00071.limits  +++| LGN1     BX1    X0*X3
00122  M01S00072.limits  +++|          ZR     X1,LGN2     IF ZERO TERMINAL NAME
00123  M01S00073.limits  +++|          RJ     ZFN         ZERO FILL NAME
00124  M01S00074.limits  +++| LGN2     BX7    X1
00125  M01S00075.limits  +++|          LX7    42          POSITION FOR TST SEARCH
00126  M01S00076.limits  +++|
00127  M01S00077.limits  +++|*         PROCESS STATUS PARAMETER.
00128  M01S00078.limits  +++|
00129  M01S00079.limits  +++|          SA5    A1+1        READ NEXT ARGUMENT
00130  M01S00080.limits  +++|          ZR     X5,LGN4     IF NO *STATUS* ARGUMENT - ABORT TASK
00131  M01S00081.limits  +++|          SA7    LGNB+2
00132  M01S00082.limits  +++|          TSIM   A7-2
00133  M01S00083.limits  +++|
00134  M01S00084.limits  +++|*         PROCESS LIST RETURNED FROM *TSIM* REQUEST BY RETURNING
00135  M01S00085.limits  +++|*         INTEGER VALUE TO USER.
00136  M01S00086.limits  +++|
00137  M01S00087.limits  +++|          SA1    LGNC        READ FIRST WORD OF TST PAIR
00138  M01S00088.limits  +++|          LX1    59-58
00139  M01S00089.limits  +++|          BX6    X6-X6       SET TERMINAL NOT LOGGED-IN STATUS
00140  M01S00090.limits  +++|          PL     X1,LGN3     IF TERMINAL NOT LOGGED-IN
00141  M01S00091.limits  +++|          SX6    B1+         SET TERMINAL LOGGED-IN STATUS
00142  M01S00092.limits  +++|
00143  M01S00093.limits  +++| LGN3     SA1    LGNA        RESTORE (A0)
00144  M01S00094.limits  +++|          SA6    X5
00145  M01S00095.limits  +++|          SA0    X1
00146  M01S00096.limits  +++|          EQ     LOGINX      RETURN
00147  M01S00097.limits  +++|
00148  M01S00098.limits  +++|*         PROCESS ARGUMENT ERROR.
00149  M01S00099.limits  +++|
00150  M01S00100.limits  +++| LGN4     SA1    LOGIN       READ CALLING ADDRESS
00151  M01S00101.limits  +++|          MX0    30
00152  M01S00102.limits  +++|          LX1    30
00153  M01S00103.limits  +++|          SA2    X1-1        READ CALLING LINE NUMBER
00154  M01S00104.limits  +++|          BX6    -X0*X2
00155  M01S00105.limits  +++|          SA6    LGNB
00156  M01S00106.limits  +++|          ARGERR A6          EXIT TO EXECUTIVE
00157  M01S00107.limits  +++|
00158  M01S00108.limits  +++| LGNA     BSS    1           TEMPORARY STORAGE (A0)
00159  M01S00109.limits  +++| LGNB     VFD    6/0,6/3,18/LGNC,12/2,18/LGND  *TSIM* HEADER
00160  M01S00110.limits  +++|          VFD    18/0,42/77777777777777B  *TSIM* MASK FIELD
00161  M01S00111.limits  +++|          CON    0           STORAGE FOR CRITERION FIELD
00162  M01S00112.limits  +++| LGNC     BSSZ   2           STORAGE FOR LIST
00163  M01S00113.limits  +++| LGND     CON    0           STORAGE FOR NUMBER OF RETURNED ENTRIES
00164  M01S00114.limits  +++|          SPACE  4
00165  M01S00115.limits  +++|*         COMMON DECK.
00166  M01S00116.limits  +++|
00167  M01S00117.limits  +++|
00168  M01S00118.limits  +++|*CALL     COMKZFN
00169  M01S00119.limits  +++|          SPACE  4
00170  M01S00120.limits  +++|          END