IDENT 0QM,IQMX
PERIPH J
BASE MIXED
SST
*COMMENT 0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE.
COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
TITLE 0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE.
SPACE 4,10
*** 0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE.
*
* P. D. HAAS. 81/06/18.
* G. S. YODER. 88/09/21.
SPACE 4,10
*** 0QM GENERATES *ABLQ*, *ARRQ*, AND *AEQP* ACCOUNT DAYFILE
* MESSAGES FOR FILES ENTERING, REENTERING, AND LEAVING THE QFT.
SPACE 4,10
*** ENTRY CONDITIONS.
*
* (LA-2 - LA-1) = ACCOUNT FILE MESSAGE IDENTIFIER (*ABLQ*,
* *ARRQ* OR *AEQP*).
* QUEUE FILE SYSTEM SECTOR IN *BFMS*.
SPACE 4,10
*** EXIT CONDITIONS.
*
* (A) = 0.
* MESSAGE ISSUED TO ACCOUNT DAYFILE.
SPACE 4,10
*** USES.
*
* USES CM - CM+4, T1 - T3.
SPACE 4,40
*** ACCOUNT DAYFILE MESSAGES.
*
*
* *ABLQ, C1, JSN, YYMMDD, HHMMSS, DC.*
* *ABLQ, C2, XXXXXX.XXXKUNS, SC.*
* JSN = JOB SEQUENCE NAME.
* YYMMDD = DATE OF ENTRY.
* HHMMSS = TIME OF ENTRY.
* DC = DISPOSITION CODE.
* XXXXXX.XXX = FILE SIZE IN SECTORS.
* SC = SERVICE CLASS.
* FILE ENTERED IN QUEUE. THE *JSN*, *YYMMDD*, AND
* *HHMMSS*, FIELDS WILL MATCH THE CORRESPONDING FIELDS
* IN SUBSEQUENT *ARRQ* AND *AEQP* MESSAGES ISSUED FOR
* THE FILE.
*
* *ARRQ, C1, JSN, YYMMDD, HHMMSS, DC.*
* *ARRQ, C2, XXXXXX.XXXKUNS, SC.*
* JSN = ORIGINAL JOB SEQUENCE NAME.
* YYMMDD = DATE OF ORIGINAL ENTRY IN QUEUE.
* HHMMSS = TIME OF ORIGINAL ENTRY IN QUEUE.
* DC = DISPOSITION CODE.
* XXXXXX.XXX = FILE SIZE IN SECTORS.
* SC = SERVICE CLASS.
* FILE REENTERED IN ACTIVE QUEUE AFTER REMOVAL. THE
* *JSN*, *YYMMDD*, AND *HHMMSS* FIELDS WILL MATCH THE
* CORRESPONDING FIELDS IN THE ORIGINAL *ABLQ* MESSAGE
* ISSUED FOR THE FILE.
*
* *AEQP, C1, JSN, YYMMDD, HHMMSS, DC.*
* *AEQP, C2, XXXXXX.XXXKUNS, SC.*
* JSN = ORIGINAL JOB SEQUENCE NAME.
* YYMMDD = DATE OF ORIGINAL ENTRY IN QUEUE.
* HHMMSS = TIME OF ORIGINAL ENTRY IN QUEUE.
* DC = DISPOSITION CODE.
* XXXXXX.XXX = FILE SIZE IN SECTORS.
* SC = SERVICE CLASS.
* FILE REMOVED FROM QUEUE. THE *JSN*, *YYMMDD*, AND
* *HHMMSS* FIELDS WILL MATCH THE CORRESPONDING FIELDS
* IN THE ORIGINAL *ABLQ* MESSAGE ISSUED FOR THE FILE.
SPACE 4,10
** COMMON DECKS.
*CALL COMPMAC
*CALL COMPREL
*CALL COMSSCD
*CALL COMSSSE
*CALL COMSZOL
TITLE MAIN ROUTINE.
** IQM - MAIN ROUTINE.
ORG 5
IQM SUBR ENTRY/EXIT
LDM -1 SET ACCOUNT FILE MESSAGE IDENTIFIER
STM MC1B+1
STM MC2B+1
LDM -2
STM MC1B
STM MC2B
* SET MESSAGE HEADER JSN AND SERVICE CLASS.
LMC 2RAB
SHN 14
NJN IQM1 IF NOT *ABLQ* MESSAGE
LDK CJSS-IOSS USE QUEUE FILE JSN
IQM1 STD T1
LDM. IOSS,T1 SET CREATING JOB OR QUEUE FILE JSN
STM MC1A
STM MC2A
LDM. IOSS+1,T1
STM MC1A+1
STM MC2A+1
LDD T1
ZJN IQM2 IF NOT *ABLQ* MESSAGE
LDD CP USE SERVICE CLASS OF CURRENT JOB
ADK TFSW
CRD CM
CFI EJT,CM
STD T1
LDK EJTP
CRD CM
LDD CM
SHN 14
LMD CM+1
ADD T1
ADK SCLE
CRD CM
LDD CM
UJN IQM3 SET SERVICE CLASS IN MESSAGE HEADER
IQM2 LDM. IOSS+SCLQ*5+0 USE SERVICE CLASS OF QUEUED FILE
IQM3 SHN -6
STM MC1A+4
STM MC2A+4
* SET ORIGINAL JSN, SERVICE CLASS, AND DISPOSITION CODE.
LDM. OJSS SET ORIGINAL JSN
STM MC1C
LDM. OJSS+1
STM MC1C+1
LDM. IOSS+SCLQ*5+0 SET SERVICE CLASS
SHN -6
ADD LA
STD T1
LDM. TOSC,T1
STM MC2D
LDM. DCSS SET DISPOSITION CODE
STM MC1E
* SET FILE LENGTH.
LDD LA RELOCATE FILE LENGTH READ
RAM IQMA
LDN ZERL SET UP CONVERSION REQUEST
CRD CM
LDM. FLSS
STD CM+3
LDM. FLSS+1
STD CM+4
ADD CM+3
ZJN IQM3.1 IF ZERO LENGTH FILE
LDD MA
CWD CM
MONITOR RDCM CONVERT FILE LENGTH
LDD MA SET FILE LENGTH IN MESSAGE
CRM. MC2C,ON
IQMA EQU *-1
* SET CREATION DATE AND TIME.
IQM3.1 LDN 3 SET LOOP INDEX
STD T3
LDC CDSS+2 SET ADDRESS OF DATE AND TIME GROUP
STD T1
LDC MC1D SET DESTINATION ADDRESS
ADD LA
STD T2
IQM4 LDI T1 CONVERT DATE AND TIME
SHN -6
STD CM SAVE VALUE
LDD T3 CHECK PROCESSING POINT
SBN 3
NJN IQM5 IF NOT PROCESSING PACKED YEAR
LDD CM
SBN 30D BIAS FOR YEARS .GE. 2000
PJN IQM5.1 IF YEAR IS .GE. 2000
LDC 70D BIAS YEAR BY 1970
RAD CM
IQM5 LDD CM CONVERT TO DISPLAY CODE
IQM5.1 RJM CDD
STI T2
AOD T2 ADVANCE MESSAGE ADDRESS
LDD T3
SBN 2
NJN IQM6 IF TIME VALUE NOT REACHED
AOD T2
IQM6 LDI T1 CONVERT TO DISPLAY CODE
LPN 77
RJM CDD
STI T2
AOD T1 ADVANCE SYSTEM SECTOR ADDRESS
AOD T2
SOD T3
NJN IQM4 IF CONVERSION NOT COMPLETE
* ISSUE MESSAGES TO ACCOUNT FILE.
LDC AJNN+MC1A
ADD LA
RJM. DFM ISSUE *C1* MESSAGE
LDC AJNN+MC2A
ADD LA
RJM. DFM ISSUE *C2* MESSAGE
* LDN 0
LJM IQMX RETURN
SPACE 4,10
** DATA AREA.
* *C1* MESSAGE.
MC1A DATA 10HJSNC
MC1B DATA H*AXXX, C1,*
MC1C DATA H*JSNO,*
MC1D DATA H*YYMMDD, HHMMSS,*
MC1E DATA C*DC.*
* *C2* MESSAGE.
MC2A DATA 10HJSNC
MC2B DATA H*AXXX, C2,*
MC2C DATA H* 0.000KUNS, *
MC2D DATA C*SC.*
* TABLE OF SERVICE CLASS CODES.
TOSC BSS 0
DATA H+"NMSC"+
SPACE 4,10
** COMMON DECKS.
*CALL COMPCDD
RSTR
SPACE 4,10
ERRNG ZQML-* BYTES WHICH CAN BE ADDED TO *0QM*
SPACE 4,10
END