Retro1.org codex

User Tools

Site Tools

Trace: • 0QM
cdc:nos2.source:opl871:0qm

Table of Contents

0QM

Table Of Contents

  • [00007] 0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE.
  • [00009] ISSUE QUEUE FILE ACCOUNTING MESSAGE.
  • [00081] MAIN ROUTINE.
  • [00082] IQM - MAIN ROUTINE.

Source Code

0QM.txt 
  1.           IDENT  0QM,IQMX
  2.           PERIPH J
  3.           BASE   MIXED
  4.           SST
  5. *COMMENT  0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE.
  6.           COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
  7.           TITLE  0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE.
  8.           SPACE  4,10
  9. ***       0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE.
  10. *
  11. *         P. D. HAAS.        81/06/18.
  12. *         G. S. YODER.       88/09/21.
  13.           SPACE  4,10
  14. ***       0QM GENERATES *ABLQ*, *ARRQ*, AND *AEQP* ACCOUNT DAYFILE
  15. *         MESSAGES FOR FILES ENTERING, REENTERING, AND LEAVING THE QFT.
  16.           SPACE  4,10
  17. ***       ENTRY CONDITIONS.
  18. *
  19. *         (LA-2 - LA-1) = ACCOUNT FILE MESSAGE IDENTIFIER (*ABLQ*,
  20. *                         *ARRQ* OR *AEQP*).
  21. *         QUEUE FILE SYSTEM SECTOR IN *BFMS*.
  22.           SPACE  4,10
  23. ***       EXIT CONDITIONS.
  24. *
  25. *         (A) = 0.
  26. *         MESSAGE ISSUED TO ACCOUNT DAYFILE.
  27.           SPACE  4,10
  28. ***       USES.
  29. *
  30. *         USES   CM - CM+4, T1 - T3.
  31.           SPACE  4,40
  32. ***       ACCOUNT DAYFILE MESSAGES.
  33. *
  34. *
  35. *         *ABLQ, C1, JSN, YYMMDD, HHMMSS, DC.*
  36. *         *ABLQ, C2, XXXXXX.XXXKUNS, SC.*
  37. *                JSN = JOB SEQUENCE NAME.
  38. *                YYMMDD = DATE OF ENTRY.
  39. *                HHMMSS = TIME OF ENTRY.
  40. *                DC = DISPOSITION CODE.
  41. *                XXXXXX.XXX = FILE SIZE IN SECTORS.
  42. *                SC = SERVICE CLASS.
  43. *                FILE ENTERED IN QUEUE.  THE *JSN*, *YYMMDD*, AND
  44. *                  *HHMMSS*, FIELDS WILL MATCH THE CORRESPONDING FIELDS
  45. *                  IN SUBSEQUENT *ARRQ* AND *AEQP* MESSAGES ISSUED FOR
  46. *                  THE FILE.
  47. *
  48. *         *ARRQ, C1, JSN, YYMMDD, HHMMSS, DC.*
  49. *         *ARRQ, C2, XXXXXX.XXXKUNS, SC.*
  50. *                JSN = ORIGINAL JOB SEQUENCE NAME.
  51. *                YYMMDD = DATE OF ORIGINAL ENTRY IN QUEUE.
  52. *                HHMMSS = TIME OF ORIGINAL ENTRY IN QUEUE.
  53. *                DC = DISPOSITION CODE.
  54. *                XXXXXX.XXX = FILE SIZE IN SECTORS.
  55. *                SC = SERVICE CLASS.
  56. *                FILE REENTERED IN ACTIVE QUEUE AFTER REMOVAL.  THE
  57. *                 *JSN*, *YYMMDD*, AND *HHMMSS* FIELDS WILL MATCH THE
  58. *                 CORRESPONDING FIELDS IN THE ORIGINAL *ABLQ* MESSAGE
  59. *                 ISSUED FOR THE FILE.
  60. *
  61. *         *AEQP, C1, JSN, YYMMDD, HHMMSS, DC.*
  62. *         *AEQP, C2, XXXXXX.XXXKUNS, SC.*
  63. *                JSN = ORIGINAL JOB SEQUENCE NAME.
  64. *                YYMMDD = DATE OF ORIGINAL ENTRY IN QUEUE.
  65. *                HHMMSS = TIME OF ORIGINAL ENTRY IN QUEUE.
  66. *                DC = DISPOSITION CODE.
  67. *                XXXXXX.XXX = FILE SIZE IN SECTORS.
  68. *                SC = SERVICE CLASS.
  69. *                FILE REMOVED FROM QUEUE.  THE *JSN*, *YYMMDD*, AND
  70. *                  *HHMMSS* FIELDS WILL MATCH THE CORRESPONDING FIELDS
  71. *                  IN THE ORIGINAL *ABLQ* MESSAGE ISSUED FOR THE FILE.
  72.           SPACE  4,10
  73. **        COMMON DECKS.
  74.  
  75.  
  76. *CALL     COMPMAC
  77. *CALL     COMPREL
  78. *CALL     COMSSCD
  79. *CALL     COMSSSE
  80. *CALL     COMSZOL
  81.           TITLE  MAIN ROUTINE.
  82. **        IQM - MAIN ROUTINE.
  83.  
  84.  
  85.           ORG    5
  86.  IQM      SUBR               ENTRY/EXIT
  87.           LDM    -1          SET ACCOUNT FILE MESSAGE IDENTIFIER
  88.           STM    MC1B+1
  89.           STM    MC2B+1
  90.           LDM    -2
  91.           STM    MC1B
  92.           STM    MC2B
  93.  
  94. *         SET MESSAGE HEADER JSN AND SERVICE CLASS.
  95.  
  96.           LMC    2RAB
  97.           SHN    14
  98.           NJN    IQM1        IF NOT *ABLQ* MESSAGE
  99.           LDK    CJSS-IOSS   USE QUEUE FILE JSN
  100.  IQM1     STD    T1
  101.           LDM.   IOSS,T1     SET CREATING JOB OR QUEUE FILE JSN
  102.           STM    MC1A
  103.           STM    MC2A
  104.           LDM.   IOSS+1,T1
  105.           STM    MC1A+1
  106.           STM    MC2A+1
  107.           LDD    T1
  108.           ZJN    IQM2        IF NOT *ABLQ* MESSAGE
  109.           LDD    CP          USE SERVICE CLASS OF CURRENT JOB
  110.           ADK    TFSW
  111.           CRD    CM
  112.           CFI    EJT,CM
  113.           STD    T1
  114.           LDK    EJTP
  115.           CRD    CM
  116.           LDD    CM
  117.           SHN    14
  118.           LMD    CM+1
  119.           ADD    T1
  120.           ADK    SCLE
  121.           CRD    CM
  122.           LDD    CM
  123.           UJN    IQM3        SET SERVICE CLASS IN MESSAGE HEADER
  124.  
  125.  IQM2     LDM.   IOSS+SCLQ*5+0  USE SERVICE CLASS OF QUEUED FILE
  126.  IQM3     SHN    -6
  127.           STM    MC1A+4
  128.           STM    MC2A+4
  129.  
  130. *         SET ORIGINAL JSN, SERVICE CLASS, AND DISPOSITION CODE.
  131.  
  132.           LDM.   OJSS        SET ORIGINAL JSN
  133.           STM    MC1C
  134.           LDM.   OJSS+1
  135.           STM    MC1C+1
  136.           LDM.   IOSS+SCLQ*5+0  SET SERVICE CLASS
  137.           SHN    -6
  138.           ADD    LA
  139.           STD    T1
  140.           LDM.   TOSC,T1
  141.           STM    MC2D
  142.           LDM.   DCSS        SET DISPOSITION CODE
  143.           STM    MC1E
  144.  
  145. *         SET FILE LENGTH.
  146.  
  147.           LDD    LA          RELOCATE FILE LENGTH READ
  148.           RAM    IQMA
  149.           LDN    ZERL        SET UP CONVERSION REQUEST
  150.           CRD    CM
  151.           LDM.   FLSS
  152.           STD    CM+3
  153.           LDM.   FLSS+1
  154.           STD    CM+4
  155.           ADD    CM+3
  156.           ZJN    IQM3.1      IF ZERO LENGTH FILE
  157.           LDD    MA
  158.           CWD    CM
  159.           MONITOR  RDCM      CONVERT FILE LENGTH
  160.           LDD    MA          SET FILE LENGTH IN MESSAGE
  161.           CRM.   MC2C,ON
  162.  IQMA     EQU    *-1
  163.  
  164. *         SET CREATION DATE AND TIME.
  165.  
  166.  IQM3.1   LDN    3           SET LOOP INDEX
  167.           STD    T3
  168.           LDC    CDSS+2      SET ADDRESS OF DATE AND TIME GROUP
  169.           STD    T1
  170.           LDC    MC1D        SET DESTINATION ADDRESS
  171.           ADD    LA
  172.           STD    T2
  173.  IQM4     LDI    T1          CONVERT DATE AND TIME
  174.           SHN    -6
  175.           STD    CM          SAVE VALUE
  176.           LDD    T3          CHECK PROCESSING POINT
  177.           SBN    3
  178.           NJN    IQM5        IF NOT PROCESSING PACKED YEAR
  179.           LDD    CM
  180.           SBN    30D         BIAS FOR YEARS .GE. 2000
  181.           PJN    IQM5.1      IF YEAR IS .GE. 2000
  182.           LDC    70D         BIAS YEAR BY 1970
  183.           RAD    CM
  184.  IQM5     LDD    CM          CONVERT TO DISPLAY CODE
  185.  IQM5.1   RJM    CDD
  186.           STI    T2
  187.           AOD    T2          ADVANCE MESSAGE ADDRESS
  188.           LDD    T3
  189.           SBN    2
  190.           NJN    IQM6        IF TIME VALUE NOT REACHED
  191.           AOD    T2
  192.  IQM6     LDI    T1          CONVERT TO DISPLAY CODE
  193.           LPN    77
  194.           RJM    CDD
  195.           STI    T2
  196.           AOD    T1          ADVANCE SYSTEM SECTOR ADDRESS
  197.           AOD    T2
  198.           SOD    T3
  199.           NJN    IQM4        IF CONVERSION NOT COMPLETE
  200.  
  201. *         ISSUE MESSAGES TO ACCOUNT FILE.
  202.  
  203.           LDC    AJNN+MC1A
  204.           ADD    LA
  205.           RJM.   DFM         ISSUE *C1* MESSAGE
  206.           LDC    AJNN+MC2A
  207.           ADD    LA
  208.           RJM.   DFM         ISSUE *C2* MESSAGE
  209. *         LDN    0
  210.           LJM    IQMX        RETURN
  211.           SPACE  4,10
  212. **        DATA   AREA.
  213.  
  214.  
  215. *         *C1* MESSAGE.
  216.  
  217.  MC1A     DATA   10HJSNC
  218.  MC1B     DATA   H*AXXX, C1,*
  219.  MC1C     DATA   H*JSNO,*
  220.  MC1D     DATA   H*YYMMDD, HHMMSS,*
  221.  MC1E     DATA   C*DC.*
  222.  
  223. *         *C2* MESSAGE.
  224.  
  225.  MC2A     DATA   10HJSNC
  226.  MC2B     DATA   H*AXXX, C2,*
  227.  MC2C     DATA   H*     0.000KUNS, *
  228.  MC2D     DATA   C*SC.*
  229.  
  230. *         TABLE OF SERVICE CLASS CODES.
  231.  
  232.  TOSC     BSS    0
  233.           DATA   H+"NMSC"+
  234.           SPACE  4,10
  235. **        COMMON DECKS.
  236.  
  237.  
  238. *CALL     COMPCDD
  239.  
  240.  
  241.           RSTR
  242.           SPACE  4,10
  243.           ERRNG     ZQML-*   BYTES WHICH CAN BE ADDED TO *0QM*
  244.           SPACE  4,10
  245.           END
cdc/nos2.source/opl871/0qm.txt · Last modified: 2023/08/05 17:24 by Site Administrator