Deck CALLTRN

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.calltrn +++|          IDENT  CALLTRN
00002  M00S00002.calltrn +++|          ENTRY  CALLTRN
00003  M00S00003.calltrn +++|          SYSCOM B1

Line S00001 Modification History
`M01` (Added by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.ns2440  +++|          TITLE  CALLTRN - CALL TRANSACTION.
00005  M01S00002.ns2440  +++|*COMMENT  CALLTRN - CALL TRANSACTION.

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

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00003.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION, 1980.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00004.calltrn +++| CALLTRN  SPACE  4,10
00009  M00S00005.calltrn +++|****      CALLTRN - CALL TRANSACTION.
00010  M00S00006.calltrn +++|*
00011  M00S00007.calltrn +++|*         A. E. SCHIPPERS    80/05/20.
00012  M00S00008.calltrn +++|*
00013  M00S00009.calltrn +++|*         CALLTRN IS AN INTERFACE ROUTINE WHICH WILL REQUEST
00014  M00S00010.calltrn +++|*         THE INITIATION OF A TRANSACTION UNIT.
00015  M00S00011.calltrn +++| CALLTRN  SPACE  4,20
00016  M00S00012.calltrn +++|***       CALLTRN - CALL TRANSACTION.
00017  M00S00013.calltrn +++|*
00018  M00S00014.calltrn +++|*         ENTRY  (A1) = FWA OF PARAMETER LIST.
00019  M00S00015.calltrn +++|*                (X1) = 42/0,18/ADDRESS OF FIRST PARAMETER.
00020  M00S00016.calltrn +++|*
00021  M00S00017.calltrn +++|*         EXIT   TRANSACTION IS INITIATED.
00022  M00S00018.calltrn +++|*
00023  M00S00019.calltrn +++|*         USES   A - 2, 6.
00024  M00S00020.calltrn +++|*                X - 0, 1, 2, 6.
00025  M00S00021.calltrn +++|*                B - 1.
00026  M00S00022.calltrn +++|*
00027  M00S00023.calltrn +++|*         CALLS  ZFN.
00028  M00S00024.calltrn +++|*
00029  M00S00025.calltrn +++|*         MACROS ARGERR, CALLTRN.
00030  M00S00026.calltrn +++|*
00031  M00S00027.calltrn +++|*         NOTE   *ITASK* IS THE ONLY TASK ALLOWED TO SCHEDULE
00032  M00S00028.calltrn +++|*                TRANSACTIONS.
00033  M00S00029.calltrn +++| CALLTRN  SPACE  4,10
00034  M00S00030.calltrn +++|*         COMMON DECKS CALLED.
00035  M00S00031.calltrn +++|
00036  M00S00032.calltrn +++|*CALL     COMKMAC
00037  M00S00033.calltrn +++|
00038  M00S00034.calltrn +++|
00039  M00S00035.calltrn +++|          VFD    42/0LCALLTRN,18/CALLTRN
00040  M00S00036.calltrn +++|
00041  M00S00037.calltrn +++| CALLTRN  SUBR               ENTRY/EXIT
00042  M00S00038.calltrn +++|          SB1    1
00043  M00S00039.calltrn +++|          ZR     X1,CTR1     IF NULL LIST ABORT
00044  M00S00040.calltrn +++|          SA2    X1          GET TASK NAME
00045  M00S00041.calltrn +++|          BX1    X2
00046  M00S00042.calltrn +++|          RJ     ZFN         ZERO FILE NAME
00047  M00S00043.calltrn +++|          BX6    X1          STORE TRANSACTION NAME
00048  M00S00044.calltrn +++|          SA6    CTRA
00049  M00S00045.calltrn +++|          SA2    A2+B1       CHECK IF MORE PARAMETERS
00050  M00S00046.calltrn +++|          NZ     X2,CTR1     IF NOT END OF PARAMETER LIST
00051  M00S00047.calltrn +++|          CALLTRN  CTRA      ENTER REQUEST
00052  M00S00048.calltrn +++|          EQ     CALLTRNX    EXIT
00053  M00S00049.calltrn +++|
00054  M00S00050.calltrn +++|
00055  M00S00051.calltrn +++|*         PROCESS ARGUMENT ERROR BY ABORTING PROGRAM.
00056  M00S00052.calltrn +++|
00057  M00S00053.calltrn +++| CTR1     SA1    CALLTRN     GET CALLING ADDRESS
00058  M00S00054.calltrn +++|          MX0    -30
00059  M00S00055.calltrn +++|          LX1    29-59
00060  M00S00056.calltrn +++|          SA2    X1-1
00061  M00S00057.calltrn +++|          BX6    -X0*X2
00062  M00S00058.calltrn +++|          SA6    CTRA
00063  M00S00059.calltrn +++|          ARGERR A6          PROCESS ARGUMENT ERROR
00064  M00S00060.calltrn +++|
00065  M00S00061.calltrn +++| CTRA     BSSZ   2
00066  M00S00062.calltrn +++|
00067  M00S00063.calltrn +++|*CALL COMKZFN
00068  M00S00064.calltrn +++|          END