User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:callrtn

Deck CALLRTN

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.callrtn +++|          IDENT  CALLRTN
00002  M01S00002.callrtn +++|          ENTRY  CALLRTN
00003  M01S00003.callrtn +++|          SYSCOM B1
00004  M01S00004.callrtn +++| CALLRTN  TITLE  CALLRTN - CALL TASK(S) WITH RETURN.
Line S00005 Modification History
M01 (Added by) callrtn
M02 (Updated by) ns2440
Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.ns2440  ---|*COMMENT  74/05/01. CALL TASK(S) WITH RETURN.
00006  M01S00001.ns2440  +++|*COMMENT  CALLRTN - CALL TASK(S) WITH RETURN.
Line S00006 Modification History
M01 (Added by) callrtn
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00006.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1979.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00007.callrtn +++| CALLRTN  SPACE  4,10
00010  M01S00008.callrtn +++|*****     CALLRTN - CALL TASK(S) WITH RETURN.
00011  M01S00009.callrtn +++|*
00012  M01S00010.callrtn +++|*         W. E. MARTIN.      79/03/06.
00013  M01S00011.callrtn +++|*
00014  M01S00012.callrtn +++|*         CALLRTN IS AN INTERFACE ROUTINE FOR COBOL AND FORTRAN
00015  M01S00013.callrtn +++|*         TASKS.  IT ALLOWS THEM TO CALL TASK(S) WITH RETURN.
00016  M01S00014.callrtn +++|          SPACE  4,20
00017  M01S00015.callrtn +++|***       COBOL/FORTRAN CALL FORMAT.
00018  M01S00016.callrtn +++|*
00019  M01S00017.callrtn +++|*         COBOL -
00020  M01S00018.callrtn +++|*
00021  M01S00019.callrtn +++|*                ENTER CALLRTN USING TASK1,TASK2,...,TASKN.
00022  M01S00020.callrtn +++|*
00023  M01S00021.callrtn +++|*         FORTRAN EXTENDED  -
00024  M01S00022.callrtn +++|*
00025  M01S00023.callrtn +++|*                CALL CALLRTN (TASK1,TASK2,...,TASKN).
00026  M01S00024.callrtn +++|*
00027  M01S00025.callrtn +++|*         WHERE - TASKI = PARAMETER WHOSE VALUE IS A 1 TO 7 CHARACTER
00028  M01S00026.callrtn +++|*                 TASK NAME.  TASKI MUST BE LEFT JUSTIFIED, WITH
00029  M01S00027.callrtn +++|*                 BINARY-ZERO OR BLANK-FILL.
00030  M01S00028.callrtn +++|*
00031  M01S00029.callrtn +++|*         NOTE - IF MORE THAN FIVE (5) TASK NAMES ARE ENCOUNTERED,
00032  M01S00030.callrtn +++|*                THEN THE TASK WILL BE ABORTED WITH A PARAMETER LIST
00033  M01S00031.callrtn +++|*                STRUCTURE ERROR.
00034  M01S00032.callrtn +++|          SPACE  4
00035  M01S00033.callrtn +++|*         COMMON TEXTS.
00036  M01S00034.callrtn +++|
00037  M01S00035.callrtn +++|
00038  M01S00036.callrtn +++|*CALL     COMKMAC
00039  M01S00037.callrtn +++|*CALL     COMSPRD
00040  M01S00038.callrtn +++|          SPACE  4,25
00041  M01S00039.callrtn +++|**        CALLRTN - CALL TASK(S) WITH RETURN.
00042  M01S00040.callrtn +++|*
00043  M01S00041.callrtn +++|*         ENTRY  (A1) = ADDRESS OF PARAMETER LIST.
00044  M01S00042.callrtn +++|*                (X1) = 42/,18/ADDRESS OF FIRST PARAMETER.
00045  M01S00043.callrtn +++|*
00046  M01S00044.callrtn +++|*         EXIT   (A0) SAME AS ON ENTRY.
00047  M01S00045.callrtn +++|*
00048  M01S00046.callrtn +++|*         USES   A - 1, 2, 5, 6.
00049  M01S00047.callrtn +++|*                X - 0, 1, 2, 5, 6.
00050  M01S00048.callrtn +++|*                B - 1, 7.
00051  M01S00049.callrtn +++|*
00052  M01S00050.callrtn +++|*         CALLS  ZFN.
00053  M01S00051.callrtn +++|*
00054  M01S00052.callrtn +++|*         MACROS ARGERR, CALLRTN.
00055  M01S00053.callrtn +++|*
00056  M01S00054.callrtn +++|*         NOTES  IF MORE THAN FIVE (5) TASK NAMES ARE ENCOUNTERED,
00057  M01S00055.callrtn +++|*                THEN THE TASK WILL BE ABORTED WITH A PARAMETER
00058  M01S00056.callrtn +++|*                LIST STRUCTURE ERROR.
00059  M01S00057.callrtn +++|*                (A0) MUST BE THE SAME ON EXIT AS UPON ENTRY.
00060  M01S00058.callrtn +++|
00061  M01S00059.callrtn +++|
00062  M01S00060.callrtn +++|          VFD    42/0LCALLRTN,18/CALLRTN
00063  M01S00061.callrtn +++|
00064  M01S00062.callrtn +++| CALLRTN  SUBR               ENTRY/EXIT
00065  M01S00063.callrtn +++|          SA2    X1+         READ TASK NAME
00066  M01S00064.callrtn +++|          SB1    1
00067  M01S00065.callrtn +++|          ZR     X1,CAL3     IF CALLED WITH NULL LIST
00068  M01S00066.callrtn +++|          BX1    X2
00069  M01S00067.callrtn +++|          RJ     ZFN         ZERO FILL NAME
00070  M01S00068.callrtn +++|          BX6    X1
00071  M01S00069.callrtn +++|          SA5    A1+B1
00072  M01S00070.callrtn +++|          SA6    CALA        STORE TASK NAME
00073  M01S00071.callrtn +++|          ZR     X5,CAL2     IF NO TASK LIST
00074  M01S00072.callrtn +++|          SB7    4           SET TASK LIST LIMIT
00075  M01S00073.callrtn +++| CAL1     SA2    X5+         READ TASK NAME
00076  M01S00074.callrtn +++|          SA5    A5+B1       READ NEXT ADDRESS
00077  M01S00075.callrtn +++|          BX1    X2          STORE TASK NAME
00078  M01S00076.callrtn +++|          ZR     X2,CAL2     IF END OF PARAMETER LIST
00079  M01S00077.callrtn +++|          RJ     ZFN         ZERO FILL NAME
00080  M01S00078.callrtn +++|          SB7    B7-B1       DECREMENT LIST ENTRY COUNT
00081  M01S00079.callrtn +++|          BX6    X1
00082  M01S00080.callrtn +++|          SA6    A6+1
00083  M01S00081.callrtn +++|          LT     B7,CAL3     IF LIST OVERFLOW - ABORT TASK
00084  M01S00082.callrtn +++|          NZ     X5,CAL1     IF PARAMETER LIST NOT EXHAUSTED
00085  M01S00083.callrtn +++| CAL2     BX6    X6-X6       TERMINATE LIST
00086  M01S00084.callrtn +++|          SA6    A6+B1
00087  M01S00085.callrtn +++|          CALLRTN CALA       ENTER REQUEST
00088  M01S00086.callrtn +++|          EQ     CALLRTNX    RETURN
00089  M01S00087.callrtn +++|
00090  M01S00088.callrtn +++|*         PROCESS ARGUMENT ERROR BY ABORTING PROGRAM.
00091  M01S00089.callrtn +++|
00092  M01S00090.callrtn +++| CAL3     SA1    CALLRTN     READ CALLING ADDRESS
00093  M01S00091.callrtn +++|          MX0    30
00094  M01S00092.callrtn +++|          LX1    29-59
00095  M01S00093.callrtn +++|          SA2    X1-1
00096  M01S00094.callrtn +++|          BX6    -X0*X2
00097  M01S00095.callrtn +++|          SA6    CALA
00098  M01S00096.callrtn +++|          ARGERR A6          EXIT TO EXECUTIVE
00099  M01S00097.callrtn +++|
00100  M01S00098.callrtn +++| CALA     BSSZ   6           TASK NAME LIST
00101  M01S00099.callrtn +++|          SPACE  4
00102  M01S00100.callrtn +++|*         COMMON DECK.
00103  M01S00101.callrtn +++|
00104  M01S00102.callrtn +++|
00105  M01S00103.callrtn +++|*CALL     COMKZFN
00106  M01S00104.callrtn +++|          SPACE  4
00107  M01S00105.callrtn +++|          END
00108  M01S00014.callrtn +++|CALLTRN
00109  M01S00002.ns2440  +++|*COMMENT  CALLTRN - CALL TRANSACTION.
Line S00003 Modification History
M01 (Added by) ns2440
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00003.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1980.
00111  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00112  M01S00004.callrtn +++| CALLTRN  SPACE  4,10
00113  M01S00005.callrtn +++|****      CALLTRN - CALL TRANSACTION.
00114  M01S00006.callrtn +++|*
00115  M01S00007.callrtn +++|*         A. E. SCHIPPERS    80/05/20.
00116  M01S00008.callrtn +++|*
00117  M01S00009.callrtn +++|*         CALLTRN IS AN INTERFACE ROUTINE WHICH WILL REQUEST
00118  M01S00010.callrtn +++|*         THE INITIATION OF A TRANSACTION UNIT.
00119  M01S00011.callrtn +++| CALLTRN  SPACE  4,20
00120  M01S00012.callrtn +++|***       CALLTRN - CALL TRANSACTION.
00121  M01S00013.callrtn +++|*
00122  M01S00014.callrtn +++|*         ENTRY  (A1) = FWA OF PARAMETER LIST.
00123  M01S00015.callrtn +++|*                (X1) = 42/0,18/ADDRESS OF FIRST PARAMETER.
00124  M01S00016.callrtn +++|*
00125  M01S00017.callrtn +++|*         EXIT   TRANSACTION IS INITIATED.
00126  M01S00018.callrtn +++|*
00127  M01S00019.callrtn +++|*         USES   A - 2, 6.
00128  M01S00020.callrtn +++|*                X - 0, 1, 2, 6.
00129  M01S00021.callrtn +++|*                B - 1.
00130  M01S00022.callrtn +++|*
00131  M01S00023.callrtn +++|*         CALLS  ZFN.
00132  M01S00024.callrtn +++|*
00133  M01S00025.callrtn +++|*         MACROS ARGERR, CALLTRN.
00134  M01S00026.callrtn +++|*
00135  M01S00027.callrtn +++|*         NOTE   *ITASK* IS THE ONLY TASK ALLOWED TO SCHEDULE
00136  M01S00028.callrtn +++|*                TRANSACTIONS.
00137  M01S00029.callrtn +++| CALLTRN  SPACE  4,10
00138  M01S00030.callrtn +++|*         COMMON DECKS CALLED.
00139  M01S00031.callrtn +++|
00140  M01S00032.callrtn +++|*CALL     COMKMAC
00141  M01S00033.callrtn +++|
00142  M01S00034.callrtn +++|
00143  M01S00035.callrtn +++|          VFD    42/0LCALLTRN,18/CALLTRN
00144  M01S00036.callrtn +++|
00145  M01S00037.callrtn +++| CALLTRN  SUBR               ENTRY/EXIT
00146  M01S00038.callrtn +++|          SB1    1
00147  M01S00039.callrtn +++|          ZR     X1,CTR1     IF NULL LIST ABORT
00148  M01S00040.callrtn +++|          SA2    X1          GET TASK NAME
00149  M01S00041.callrtn +++|          BX1    X2
00150  M01S00042.callrtn +++|          RJ     ZFN         ZERO FILE NAME
00151  M01S00043.callrtn +++|          BX6    X1          STORE TRANSACTION NAME
00152  M01S00044.callrtn +++|          SA6    CTRA
00153  M01S00045.callrtn +++|          SA2    A2+B1       CHECK IF MORE PARAMETERS
00154  M01S00046.callrtn +++|          NZ     X2,CTR1     IF NOT END OF PARAMETER LIST
00155  M01S00047.callrtn +++|          CALLTRN  CTRA      ENTER REQUEST
00156  M01S00048.callrtn +++|          EQ     CALLTRNX    EXIT
00157  M01S00049.callrtn +++|
00158  M01S00050.callrtn +++|
00159  M01S00051.callrtn +++|*         PROCESS ARGUMENT ERROR BY ABORTING PROGRAM.
00160  M01S00052.callrtn +++|
00161  M01S00053.callrtn +++| CTR1     SA1    CALLTRN     GET CALLING ADDRESS
00162  M01S00054.callrtn +++|          MX0    -30
00163  M01S00055.callrtn +++|          LX1    29-59
00164  M01S00056.callrtn +++|          SA2    X1-1
00165  M01S00057.callrtn +++|          BX6    -X0*X2
00166  M01S00058.callrtn +++|          SA6    CTRA
00167  M01S00059.callrtn +++|          ARGERR A6          PROCESS ARGUMENT ERROR
00168  M01S00060.callrtn +++|
00169  M01S00061.callrtn +++| CTRA     BSSZ   2
00170  M01S00062.callrtn +++|
00171  M01S00063.callrtn +++|*CALL COMKZFN
00172  M01S00064.callrtn +++|          END
cdc/nos2.source/opl.opl871/deck/callrtn.txt ยท Last modified: by 127.0.0.1