Deck CALLTRN

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.calltrn +++|          IDENT  CALLTRN
00002  M01S00002.calltrn +++|          ENTRY  CALLTRN
00003  M01S00003.calltrn +++|          SYSCOM B1
00004  M01S00001.ns2440  +++|          TITLE  CALLTRN - CALL TRANSACTION.
00005  M01S00002.ns2440  +++|*COMMENT  CALLTRN - CALL TRANSACTION.

Line S00003 Modification History
`M01` (Added by)	`ns2440`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00003.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1980.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00004.calltrn +++| CALLTRN  SPACE  4,10
00009  M01S00005.calltrn +++|****      CALLTRN - CALL TRANSACTION.
00010  M01S00006.calltrn +++|*
00011  M01S00007.calltrn +++|*         A. E. SCHIPPERS    80/05/20.
00012  M01S00008.calltrn +++|*
00013  M01S00009.calltrn +++|*         CALLTRN IS AN INTERFACE ROUTINE WHICH WILL REQUEST
00014  M01S00010.calltrn +++|*         THE INITIATION OF A TRANSACTION UNIT.
00015  M01S00011.calltrn +++| CALLTRN  SPACE  4,20
00016  M01S00012.calltrn +++|***       CALLTRN - CALL TRANSACTION.
00017  M01S00013.calltrn +++|*
00018  M01S00014.calltrn +++|*         ENTRY  (A1) = FWA OF PARAMETER LIST.
00019  M01S00015.calltrn +++|*                (X1) = 42/0,18/ADDRESS OF FIRST PARAMETER.
00020  M01S00016.calltrn +++|*
00021  M01S00017.calltrn +++|*         EXIT   TRANSACTION IS INITIATED.
00022  M01S00018.calltrn +++|*
00023  M01S00019.calltrn +++|*         USES   A - 2, 6.
00024  M01S00020.calltrn +++|*                X - 0, 1, 2, 6.
00025  M01S00021.calltrn +++|*                B - 1.
00026  M01S00022.calltrn +++|*
00027  M01S00023.calltrn +++|*         CALLS  ZFN.
00028  M01S00024.calltrn +++|*
00029  M01S00025.calltrn +++|*         MACROS ARGERR, CALLTRN.
00030  M01S00026.calltrn +++|*
00031  M01S00027.calltrn +++|*         NOTE   *ITASK* IS THE ONLY TASK ALLOWED TO SCHEDULE
00032  M01S00028.calltrn +++|*                TRANSACTIONS.
00033  M01S00029.calltrn +++| CALLTRN  SPACE  4,10
00034  M01S00030.calltrn +++|*         COMMON DECKS CALLED.
00035  M01S00031.calltrn +++|
00036  M01S00032.calltrn +++|*CALL     COMKMAC
00037  M01S00033.calltrn +++|
00038  M01S00034.calltrn +++|
00039  M01S00035.calltrn +++|          VFD    42/0LCALLTRN,18/CALLTRN
00040  M01S00036.calltrn +++|
00041  M01S00037.calltrn +++| CALLTRN  SUBR               ENTRY/EXIT
00042  M01S00038.calltrn +++|          SB1    1
00043  M01S00039.calltrn +++|          ZR     X1,CTR1     IF NULL LIST ABORT
00044  M01S00040.calltrn +++|          SA2    X1          GET TASK NAME
00045  M01S00041.calltrn +++|          BX1    X2
00046  M01S00042.calltrn +++|          RJ     ZFN         ZERO FILE NAME
00047  M01S00043.calltrn +++|          BX6    X1          STORE TRANSACTION NAME
00048  M01S00044.calltrn +++|          SA6    CTRA
00049  M01S00045.calltrn +++|          SA2    A2+B1       CHECK IF MORE PARAMETERS
00050  M01S00046.calltrn +++|          NZ     X2,CTR1     IF NOT END OF PARAMETER LIST
00051  M01S00047.calltrn +++|          CALLTRN  CTRA      ENTER REQUEST
00052  M01S00048.calltrn +++|          EQ     CALLTRNX    EXIT
00053  M01S00049.calltrn +++|
00054  M01S00050.calltrn +++|
00055  M01S00051.calltrn +++|*         PROCESS ARGUMENT ERROR BY ABORTING PROGRAM.
00056  M01S00052.calltrn +++|
00057  M01S00053.calltrn +++| CTR1     SA1    CALLTRN     GET CALLING ADDRESS
00058  M01S00054.calltrn +++|          MX0    -30
00059  M01S00055.calltrn +++|          LX1    29-59
00060  M01S00056.calltrn +++|          SA2    X1-1
00061  M01S00057.calltrn +++|          BX6    -X0*X2
00062  M01S00058.calltrn +++|          SA6    CTRA
00063  M01S00059.calltrn +++|          ARGERR A6          PROCESS ARGUMENT ERROR
00064  M01S00060.calltrn +++|
00065  M01S00061.calltrn +++| CTRA     BSSZ   2
00066  M01S00062.calltrn +++|
00067  M01S00063.calltrn +++|*CALL COMKZFN
00068  M01S00064.calltrn +++|          END