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