Deck JOURNL

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.journl  +++|          IDENT  JOURNL
00002  M00S00002.journl  +++|
00003  M00S00003.journl  +++|          ENTRY  JOURNL

Line S00004 Modification History
`M01` (Removed by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.ns2440  ---|  COMMENT 72/07/09.           ISSUE JOURNAL MESSAGE.

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

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00001.ns2440  +++|          TITLE  JOURNL - ISSUE JOURNAL MESSAGE.
00006  M01S00002.ns2440  +++|*COMMENT  JOURNL - ISSUE JOURNAL MESSAGE.

Line S00005 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00005.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP.1972.

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

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

Line S00006 Modification History
`M01` (Removed by)	`ns2440`

Seq #  *Modification Id* Act 
----------------------------+
00009  M01S00006.ns2440  ---|          TITLE  JOURNL - ISSUE JOURNAL MESSAGE.
00010  M00S00007.journl  +++|          SPACE  4
00011  M00S00008.journl  +++|***       JOURNL - ISSUE JOURNAL MESSAGE.
00012  M00S00009.journl  +++|*         J.C. BOHNHOFF. 72/07/09.
00013  M00S00010.journl  +++|          SPACE  4
00014  M00S00011.journl  +++|*CALL,COMKMAC
00015  M00S00012.journl  +++|*CALL     COMSPRD
00016  M00S00013.journl  +++|          SPACE  4
00017  M00S00014.journl  +++|***       CALL FORMAT -
00018  M00S00015.journl  +++|*
00019  M00S00016.journl  +++|*         FORTRAN EXTENDED
00020  M00S00017.journl  +++|*                CALL JOURNL(TYPE,MESSAGE,LENGTH)
00021  M00S00018.journl  +++|*         COBOL
00022  M00S00019.journl  +++|*                ENTER JOURNL USING TYPE,MESSAGE
00023  M00S00020.journl  +++|*
00024  M00S00021.journl  +++|*         WHERE - TYPE= JOURNAL FILE NUMBER,
00025  M00S00022.journl  +++|*                            COBOL - COMPUTATIONAL-1
00026  M00S00023.journl  +++|*                            FORTRAN EXTENDED - INTEGER
00027  M00S00024.journl  +++|*                 MESSAGE= LOCATION OF MESSAGE TO BE ISSUED.
00028  M00S00025.journl  +++|*                 LENGTH= LENGTH OF MESSAGE EXPRESSED IN CHARACTERS.
00029  M00S00026.journl  +++|*                            FORTRAN EXTENDED - INTEGER
00030  M00S00027.journl  +++|
00031  M00S00028.journl  +++|
00032  M00S00029.journl  +++| JOURNL   PS                 ENTRY/EXIT
00033  M00S00030.journl  +++|          SA2    X1          READ TYPE
00034  M00S00031.journl  +++|          SA3    A1+1        READ ADDRESS OF MESSAGE
00035  M00S00032.journl  +++|          UX2    X2
00036  M00S00033.journl  +++|          SX4    X3          MESSAGE ADDRESS
00037  M00S00034.journl  +++|          BX6    X4-X3       CHECK COBOL CALL
00038  M00S00035.journl  +++|          NZ     X6,JOU2     IF COBOL
00039  M00S00036.journl  +++|          SA5    A3+1        READ LENGTH ADDRESS
00040  M00S00037.journl  +++|          SA5    X5+         READ LENGTH
00041  M00S00038.journl  +++| JOU1     SX7    10          COMPUTE MESSAGE LENGTH IN WORDS
00042  M00S00039.journl  +++|          SX5    X5+9        ROUND LENGTH UP
00043  M00S00040.journl  +++|          LX2    36          POSITION TYPE
00044  M00S00041.journl  +++|          IX5    X5/X7
00045  M00S00042.journl  +++|          BX6    X2+X4       TYPE + ADDRESS
00046  M00S00043.journl  +++|          LX5    18          POSITION MESSAGE LENGTH
00047  M00S00044.journl  +++|          BX6    X6+X5       ADDRESS + LENGTH + TYPE
00048  M00S00045.journl  +++|          SA6    JOUA        STORE ARGUMENT WORD
00049  M00S00046.journl  +++|          JOURNL A6          ISSUE REQUEST
00050  M00S00047.journl  +++|          JP     JOURNL      RETURN
00051  M00S00048.journl  +++|
00052  M00S00049.journl  +++| JOU2     AX3    36          EXTRACT MESSAGE LENGTH
00053  M00S00050.journl  +++|          BX5    X3
00054  M00S00051.journl  +++|          JP     JOU1
00055  M00S00052.journl  +++|
00056  M00S00053.journl  +++| JOUA     CON    0           ARGUMENT STORAGE
00057  M00S00054.journl  +++|
00058  M00S00055.journl  +++|          END