Seq # *Modification Id* Act
----------------------------+
01587 M00S01433.dfterm +++| SA3 A2+B1 GET CREATION DATE AND TIME
01588 M00S01434.dfterm +++| MX6 24
01589 M00S01435.dfterm +++| BX3 -X6*X3
01590 M00S01436.dfterm +++| BX6 X6*X2
01591 M00S01437.dfterm +++| BX6 X6+X3 SAVE FILE LENGTH, DATE AND TIME
01592 M00S01438.dfterm +++| SA6 B2+B1
01593 M00S01439.dfterm +++| LX2 59-11
01594 M00S01440.dfterm +++| NG X2,EDI1 IF A DIRECT ACCESS FILE
01595 M00S01441.dfterm +++|
01596 M00S01442.dfterm +++|* SET NON-DAYFILE TYPE.
01597 M00S01443.dfterm +++|
01598 M00S01444.dfterm +++| BX6 X1 SAVE FILE NAME, DEVICE, AND 0 DAYFILE CODE
01599 M00S01445.dfterm +++| SA6 B2
01600 M00S01446.dfterm +++| BX6 X6-X6 SET NON-DAYFILE TYPE CODE
01601 M00S01447.dfterm +++| EQ EDIX
01602 M00S01448.dfterm +++|
01603 M00S01449.dfterm +++|* SET DAYFILE TYPE.
01604 M00S01450.dfterm +++|
01605 M00S01451.dfterm +++| EDI1 RJ CDN CATAGORIZE DAYFILE NAME
01606 M00S01452.dfterm +++| BX7 X1+X6 SAVE FILE NAME, DEVICE, AND DAYFILE CODE
01607 M00S01453.dfterm +++| SA7 B2
01608 M00S01454.dfterm +++| EQ EDIX
01609 M00S01455.dfterm +++| ERP SPACE 4,17
| Line S01456 Modification History |
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01610 M01S01456.ns2018 ---|** ERP - ERROR PROCESSOR FOR FILE MANAGER CALLS.
01611 M01S01457.ns2018 ---|*
01612 M01S01458.ns2018 ---|* ENTRY (X6) = FILE MANAGER ERROR CODE.
01613 M01S01459.ns2018 ---|* (B6) = FILE MANAGER ERROR TABLE.
| Line S00092 Modification History |
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01614 M01S00092.ns2018 +++|** ERP - ERROR PROCESSOR FOR *PFM* CALLS.
01615 M01S00093.ns2018 +++|*
01616 M01S00094.ns2018 +++|* ENTRY (X6) = *PFM* ERROR CODE.
01617 M00S01460.dfterm +++|*
01618 M00S01461.dfterm +++|* EXIT (X5) = *K* DISPLAY ERROR MESSAGE ADDRESS.
01619 M00S01462.dfterm +++|* = 0 IF RETRY OPERATION.
| Line S01463 Modification History |
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01620 M01S01463.ns2018 ---|* TO *ERR* IF *PFM* SYSTEM ERROR OR AUTOMATIC NAME
01621 M01S01464.ns2018 ---|* REASSIGNMENT IMPOSSIBLE ON *FILE ALREADY PERMANENT*
01622 M01S01465.ns2018 ---|* ERROR DURING DEFINE. TO *ERR1* IF *PFM* SYSTEM ERROR
01623 M01S01466.ns2018 ---|* ON PERMIT.
01624 M00S01467.dfterm +++|*
| Line S01468 Modification History |
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01625 M01S01468.ns2018 ---|* USES A - 1, 5, 6.
01626 M01S01469.ns2018 ---|* B - 6.
| Line S00095 Modification History |
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01627 M01S00095.ns2018 +++|* USES A - 6.
01628 M00S01470.dfterm +++|* X - 1, 5, 6.
01629 M00S01471.dfterm +++|*
01630 M00S01472.dfterm +++|* CALLS ADN.
| Line S00096 Modification History |
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01631 M01S00096.ns2018 +++|*
01632 M01S00097.ns2018 +++|* MACROS MESSAGE, RECALL.
01633 M00S01473.dfterm +++|
01634 M00S01474.dfterm +++|
01635 M00S01475.dfterm +++| ERP SUBR ENTRY/EXIT
| Line S01476 Modification History |
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01636 M01S01476.ns2018 ---| LX6 -10 GET ERROR PROCESSING ADDRESS FROM TABLE
01637 M01S01477.ns2018 ---| SA5 B6+X6
01638 M01S01478.ns2018 ---| PL X5,ERPX IF ERROR MESSAGE
01639 M01S01479.ns2018 ---| SB6 X5 JUMP TO ERROR PROCESSOR ADDRESS
01640 M01S01480.ns2018 ---| JP B6
| Line S00098 Modification History |
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01641 M01S00098.ns2018 +++| LX6 -10
01642 M01S00099.ns2018 +++| SX1 X6-/ERRMSG/FAP
01643 M01S00100.ns2018 +++| ZR X1,ERP1 IF FILE ALREADY PERMANENT ERROR
01644 M01S00101.ns2018 +++| SX1 X6-/ERRMSG/PFA
01645 M01S00102.ns2018 +++| ZR X1,ERP2 IF PF UTILITY ACTIVE ERROR
01646 M01S00103.ns2018 +++| SX5 MPER SET ERROR MESSAGE ADDRESS
01647 M01S00104.ns2018 +++| EQ ERPX RETURN
01648 M00S01481.dfterm +++|
01649 M00S01482.dfterm +++|* PROCESS FILE ALREADY PERMANENT ERROR.
01650 M00S01483.dfterm +++|
01651 M00S01484.dfterm +++| ERP1 RJ ADN ASSIGN DAYFILE NAME
| Line S01485 Modification History |
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01652 M01S01485.ns2018 ---| NZ X5,ERR IF AUTOMATIC ASSIGNMENT IMPOSSIBLE
| Line S00105 Modification History |
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01653 M01S00105.ns2018 +++| NZ X5,ERPX IF AUTOMATIC ASSIGNMENT IMPOSSIBLE
01654 M00S01486.dfterm +++| BX6 X2 INSERT NEW NAME IN FET
01655 M00S01487.dfterm +++| SA6 D+CFPN
01656 M00S01488.dfterm +++| EQ ERPX
01657 M00S01489.dfterm +++|
01658 M00S01490.dfterm +++|* PROCESS PF UTILITY ACTIVITY ERROR.
01659 M00S01491.dfterm +++|
01660 M00S01492.dfterm +++| ERP2 RECALL WAIT FOR END OF PF UTILITY
01661 M00S01493.dfterm +++| MESSAGE (=C* WAITING FOR PF UTILITY.*),2,R
01662 M00S01494.dfterm +++| BX5 X5-X5
01663 M00S01495.dfterm +++| EQ ERPX
| Line S01496 Modification History |
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01664 M01S01496.ns2018 ---|
01665 M01S01497.ns2018 ---|* PROCESS SYSTEM ERRORS FROM *PFM*.
01666 M01S01498.ns2018 ---|
01667 M01S01499.ns2018 ---| ERP3 SA1 ERPX CHECK IF DEFINE ERROR
01668 M01S01500.ns2018 ---| AX1 30
01669 M01S01501.ns2018 ---| SX6 X1-DTD3-1
01670 M01S01502.ns2018 ---| ZR X6,ERR IF DEFINE ERROR
01671 M01S01503.ns2018 ---| JP ERR1 IF PERMIT ERROR
01672 M00S01504.dfterm +++| ERR SPACE 4,3
01673 M00S01505.dfterm +++|** ERR - PROCESS ERROR EXIT.
01674 M00S01506.dfterm +++|*
01675 M00S01507.dfterm +++|* ENTRY TO *ERR1* IF STATUS OF DAYFILE IS NOT INDEFINITE.
| Line S00106 Modification History |
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01676 M01S00106.ns2018 +++|*
01677 M01S00107.ns2018 +++|* MACROS ABORT, ENFAM, MESSAGE, PACKNAM.
01678 M00S01508.dfterm +++|
01679 M00S01509.dfterm +++|
| Line S01510 Modification History |
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01680 M01S01510.ns2018 ---| ERR MESSAGE (=C* DAYFILE STATUS INDEFINITE.*)
| Line S00108 Modification History |
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01681 M01S00108.ns2018 +++| ERR MESSAGE TODA *DAYFILE STATUS INDEFINITE.*
01682 M00S01511.dfterm +++| ERR1 MESSAGE (=C* DFTERM ABORTED.*)
01683 M00S01512.dfterm +++| PACKNAM CPCK SET USER PACK
01684 M00S01513.dfterm +++| ENFAM CFAM SET USER FAMILY
01685 M00S01514.dfterm +++| ABORT
01686 M00S01515.dfterm +++| FDE SPACE 4,20
01687 M00S01516.dfterm +++|** FDE - FORMAT DAYFILE ENTRY.
01688 M00S01517.dfterm +++|*
01689 M00S01518.dfterm +++|* ENTRY (B6) = ADDRESS OF DAYFILE INFORMATION.
01690 M00S01519.dfterm +++|* 42/FILE NAME, 6/DN, 12/DC
01691 M00S01520.dfterm +++|* 24/LF, 18/CD, 18/CT
01692 M00S01521.dfterm +++|* 42/FAMILY OR PACK NAME, 1/F, 17/0
01693 M00S01522.dfterm +++|* DN = DEVICE NUMBER FOR FILE.
01694 M00S01523.dfterm +++|* DC = DAYFILE TYPE CODE.
01695 M00S01524.dfterm +++|* LF = LENGTH OF DAYFILE.
01696 M00S01525.dfterm +++|* CD = CREATION DATE OF FILE.
01697 M00S01526.dfterm +++|* CT = CREATION TIME OF FILE.
01698 M00S01527.dfterm +++|* F = AUXILIARY PACK FLAG
01699 M00S01528.dfterm +++|* (B7) = ADDRESS OF AREA TO RECEIVE FORMATTED OUTPUT.
01700 M00S01529.dfterm +++|*
01701 M00S01530.dfterm +++|* EXIT (B7) = ADDRESS OF FORMATTED DAYFILE INFORMATION.
01702 M00S01531.dfterm +++|*
01703 M00S01532.dfterm +++|* USES A - 1, 2, 6, 7.
01704 M00S01533.dfterm +++|* X - 0, 1, 2, 3, 6, 7.
01705 M00S01534.dfterm +++|*
01706 M00S01535.dfterm +++|* CALLS COD, SFN.
| Line S00109 Modification History |
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01707 M01S00109.ns2018 +++|*
01708 M01S00110.ns2018 +++|* MACROS EDATE, ETIME.
01709 M00S01536.dfterm +++|
01710 M00S01537.dfterm +++|
01711 M00S01538.dfterm +++| FDE SUBR ENTRY/EXIT
01712 M00S01539.dfterm +++|
01713 M00S01540.dfterm +++|* FORMAT FAMILY/PACK NAME.
01714 M00S01541.dfterm +++|
01715 M00S01542.dfterm +++| SA1 B6+2 GET FAMILY/PACK NAME
01716 M00S01543.dfterm +++| MX0 42
01717 M00S01544.dfterm +++| BX1 X0*X1
01718 M00S01545.dfterm +++| RJ SFN SPACE FILL NAME
01719 M00S01546.dfterm +++| LX6 30 SAVE NAME
01720 M00S01547.dfterm +++| SA6 B7+2
01721 M00S01548.dfterm +++|
01722 M00S01549.dfterm +++|* FORMAT DAYFILE TYPE AND DEVICE NUMBER.
01723 M00S01550.dfterm +++|
01724 M00S01551.dfterm +++| SA1 B6 GET DAYFILE TYPE
01725 M00S01552.dfterm +++| MX2 -3
01726 M00S01553.dfterm +++| BX2 -X2*X1
01727 M00S01554.dfterm +++| SA2 TDFT+X2
01728 M00S01555.dfterm +++| MX3 -30
01729 M00S01556.dfterm +++| BX6 -X3*X6
01730 M00S01557.dfterm +++| LX2 18
01731 M00S01558.dfterm +++| BX7 X3*X2
01732 M00S01559.dfterm +++| BX6 X7+X6 SAVE LOWER PART OF DAYFILE TYPE
01733 M00S01560.dfterm +++| SA6 B7+B1
01734 M00S01561.dfterm +++| BX6 X2 SAVE UPPER PART OF DAYFILE TYPE
01735 M00S01562.dfterm +++| LX1 -12 GET DEVICE NUMBER
01736 M00S01563.dfterm +++| SA6 B7+
01737 M00S01564.dfterm +++| MX0 -6
01738 M00S01565.dfterm +++| BX1 -X0*X1
01739 M00S01566.dfterm +++| SX1 X1+100B FORCE TWO DIGITS
01740 M00S01567.dfterm +++| RJ COD CONVERT TO OCTAL
01741 M00S01568.dfterm +++| SA1 B7+2 MERGE WITH FAMILY/PACK NAME
01742 M00S01569.dfterm +++| MX3 -12
01743 M00S01570.dfterm +++| BX6 -X3*X6
01744 M00S01571.dfterm +++| LX3 30
01745 M00S01572.dfterm +++| LX6 30
01746 M00S01573.dfterm +++| BX1 X3*X1
01747 M00S01574.dfterm +++| BX6 X1+X6
01748 M00S01575.dfterm +++| SA6 A1 PUT DEVICE NUMBER IN OUTPUT STRING
01749 M00S01576.dfterm +++|
01750 M00S01577.dfterm +++|* FORMAT FILE NAME.
01751 M00S01578.dfterm +++|
01752 M00S01579.dfterm +++| SA1 B6 GET FILE NAME
01753 M00S01580.dfterm +++| MX6 42
01754 M00S01581.dfterm +++| BX1 X6*X1
01755 M00S01582.dfterm +++| RJ SFN SPACE FILL FILE NAME
01756 M00S01583.dfterm +++| LX6 24
01757 M00S01584.dfterm +++| SA6 B7+3 PUT LOWER PART OF FILE NAME IN OUTPUT
01758 M00S01585.dfterm +++| MX0 30
01759 M00S01586.dfterm +++| BX6 -X0*X6
01760 M00S01587.dfterm +++| SA1 A6-B1 SAVE UPPER PART OF FILE NAME
01761 M00S01588.dfterm +++| BX1 X0*X1
01762 M00S01589.dfterm +++| BX7 X1+X6
01763 M00S01590.dfterm +++| SA7 A1
01764 M00S01591.dfterm +++|
01765 M00S01592.dfterm +++|* FORMAT DATE AND TIME.
01766 M00S01593.dfterm +++|
01767 M00S01594.dfterm +++| MX6 -18 GET CREATION DATE
01768 M00S01595.dfterm +++| SA1 B6+B1
01769 M00S01596.dfterm +++| LX1 -18
01770 M00S01597.dfterm +++| BX1 -X6*X1
01771 M00S01598.dfterm +++| EDATE X1 EDIT DATE
01772 M00S01599.dfterm +++| LX6 42
01773 M00S01600.dfterm +++| SA6 B7+4 SAVE LOWER PART OF DATE IN OUTPUT
01774 M00S01601.dfterm +++| SA1 A6-B1 SAVE UPPER PART OF DATE IN OUTPUT
01775 M00S01602.dfterm +++| MX2 24
01776 M00S01603.dfterm +++| BX1 X2*X1
01777 M00S01604.dfterm +++| BX6 -X2*X6
01778 M00S01605.dfterm +++| BX6 X1+X6
01779 M00S01606.dfterm +++| SA6 A1
01780 M00S01607.dfterm +++| SA1 B6+B1 GET CREATION TIME
01781 M00S01608.dfterm +++| MX6 -18
01782 M00S01609.dfterm +++| BX1 -X6*X1
01783 M00S01610.dfterm +++| ETIME X1 EDIT TIME
01784 M00S01611.dfterm +++| LX6 48 SAVE LOWER PART OF TIME IN OUTPUT
01785 M00S01612.dfterm +++| SA6 B7+5
01786 M00S01613.dfterm +++| SA1 A6-B1 SAVE UPPER PART OF TIME IN OUTPUT
01787 M00S01614.dfterm +++| MX2 12
01788 M00S01615.dfterm +++| BX1 X2*X1
01789 M00S01616.dfterm +++| BX6 -X2*X6
01790 M00S01617.dfterm +++| BX6 X1+X6
01791 M00S01618.dfterm +++| SA6 A1
01792 M00S01619.dfterm +++|
01793 M00S01620.dfterm +++|* FORMAT FILE LENGTH.
01794 M00S01621.dfterm +++|
01795 M00S01622.dfterm +++| SA1 B6+B1 GET FILE LENGTH
01796 M00S01623.dfterm +++| LX1 -36
01797 M00S01624.dfterm +++| MX6 -24
01798 M00S01625.dfterm +++| BX1 -X6*X1
01799 M00S01626.dfterm +++| RJ COD CONVERT FILE LENGTH TO OCTAL
01800 M00S01627.dfterm +++| MX2 -42 SAVE FILE LENGTH
01801 M00S01628.dfterm +++| BX7 -X2*X6
01802 M00S01629.dfterm +++| LX7 12
01803 M00S01630.dfterm +++| MX2 6
01804 M00S01631.dfterm +++| SA1 B7+5
01805 M00S01632.dfterm +++| BX1 X2*X1
01806 M00S01633.dfterm +++| BX6 X1+X7
01807 M00S01634.dfterm +++| SA6 A1
01808 M00S01635.dfterm +++| EQ FDEX
01809 M00S01636.dfterm +++| GCD SPACE 4,14
01810 M00S01637.dfterm +++|** GCD - GET CATALOG DESCRIPTION.
01811 M00S01638.dfterm +++|*
01812 M00S01639.dfterm +++|* ENTRY (A0) = CATALOG LIST INDEX.
01813 M00S01640.dfterm +++|* (B2) = TABLE INDEX.
01814 M00S01641.dfterm +++|*
01815 M00S01642.dfterm +++|* EXIT (X1) = TABLE ENTRY.
01816 M00S01643.dfterm +++|* (A0) = CATALOG LIST INDEX.
01817 M00S01644.dfterm +++|* (B2) = TABLE INDEX.
01818 M00S01645.dfterm +++|* (APIN) = AUXILIARY PACK INFORMATION.
01819 M00S01646.dfterm +++|* (FET+14) = 42/FAMILY OR PACK, 1/F, 17/USER INDEX.
01820 M00S01647.dfterm +++|* F = AUXILIARY PACK FLAG.
01821 M00S01648.dfterm +++|*
01822 M00S01649.dfterm +++|* USES A - 1, 2, 6, 7.
01823 M00S01650.dfterm +++|* X - 1, 2, 3, 6, 7.
01824 M00S01651.dfterm +++|
01825 M00S01652.dfterm +++|
01826 M00S01653.dfterm +++| GCD SUBR ENTRY/EXIT
01827 M00S01654.dfterm +++| SA1 A0+B2 GET CATALOG DESCRIPTION
01828 M00S01655.dfterm +++| MX3 1 CHECK AUXILIARY DEVICE FLAG
01829 M00S01656.dfterm +++| LX3 18
01830 M00S01657.dfterm +++| BX7 X3*X1
01831 M00S01658.dfterm +++| ZR X7,GCD1 IF FAMILY
01832 M00S01659.dfterm +++|
01833 M00S01660.dfterm +++|* GET AUXILIARY PACK INFORMATION.
01834 M00S01661.dfterm +++|
| Line S01662 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01835 M01S01662.ns22000 ---| MX3 -17 GET EQUIPMENT NUMBER
| Line S00028 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01836 M01S00028.ns22000 +++| MX3 -17 GET EST ORDINAL
01837 M00S01663.dfterm +++| BX7 -X3*X1
01838 M00S01664.dfterm +++| BX3 X3*X1 SET USER INDEX IN ENTRY
01839 M00S01665.dfterm +++| SX2 PDUI
01840 M00S01666.dfterm +++| BX1 X3+X2
01841 M00S01667.dfterm +++| SA2 TMSA+X7 SET AUXILIARY PACK INFORMATION
01842 M00S01668.dfterm +++| MX3 48
01843 M00S01669.dfterm +++| BX6 X3*X2
01844 M00S01670.dfterm +++| BX7 X7+X6
01845 M00S01671.dfterm +++| SA7 APIN
01846 M00S01672.dfterm +++|
01847 M00S01673.dfterm +++|* PUT DESCRIPTION IN FET.
01848 M00S01674.dfterm +++|
01849 M00S01675.dfterm +++| GCD1 BX6 X1
01850 M00S01676.dfterm +++| SA2 A0-B1 GET FET ADDRESS
01851 M00S01677.dfterm +++| SA6 X2+14 PUT CATALOG DESCRIPTION IN FET
01852 M00S01678.dfterm +++| EQ GCDX
01853 M00S01679.dfterm +++| RCE SPACE 4,23
01854 M00S01680.dfterm +++|** RCE - READ CATALOG ENTRY.
01855 M00S01681.dfterm +++|*
01856 M00S01682.dfterm +++|* ENTRY (X1) = 0 FOR INITIALIZATION CALL.
01857 M00S01683.dfterm +++|* .NE. 0 FOR CONTINUATION CALL.
01858 M00S01684.dfterm +++|* (X2) = FET ADDRESS.
01859 M00S01685.dfterm +++|* (B6) = ADDRESS OF AREA TO RECEIVE CATALOG ENTRY.
01860 M00S01686.dfterm +++|* (FET+14) = 42/FAMILY OR PACK NAME, 1/F, 17/USER INDEX.
01861 M00S01687.dfterm +++|* F = AUXILIARY PACK FLAG.
01862 M00S01688.dfterm +++|*
01863 M00S01689.dfterm +++|* EXIT (X2) = FET ADDRESS.
01864 M00S01690.dfterm +++|* (X1) = 0 IF CATALOG ENTRY AVAILABLE.
01865 M00S01691.dfterm +++|* .NE. 0 IF END OF CATALOG.
01866 M00S01692.dfterm +++|* (X5) = 0 IF NO ERROR.
01867 M00S01693.dfterm +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR.
01868 M00S01694.dfterm +++|* (B7) = 0 IF ERROR.
01869 M00S01695.dfterm +++|* FAMILY/PACK NAME AND USER INDEX MAY BE CHANGED IN
01870 M00S01696.dfterm +++|* CONTROL POINT AREA.
01871 M00S01697.dfterm +++|*
01872 M00S01698.dfterm +++|* USES A - 1, 6.
01873 M00S01699.dfterm +++|* B - 7.
01874 M00S01700.dfterm +++|* X - 1, 2, 5, 6.
01875 M00S01701.dfterm +++|*
01876 M00S01702.dfterm +++|* CALLS SFD, SFN.
| Line S00111 Modification History |
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01877 M01S00111.ns2018 +++|*
01878 M01S00112.ns2018 +++|* MACROS CATLIST, MESSAGE, READW.
01879 M00S01703.dfterm +++|
01880 M00S01704.dfterm +++|
01881 M00S01705.dfterm +++| RCE SUBR ENTRY/EXIT
01882 M00S01706.dfterm +++| NZ X1,RCE2 IF NOT INITIALIZATION CALL
01883 M00S01707.dfterm +++| SX6 B0+
01884 M00S01708.dfterm +++| SA6 X2+CFCN
01885 M00S01709.dfterm +++|
01886 M00S01710.dfterm +++|* READ CATALOG ENTRIES INTO BUFFER.
01887 M00S01711.dfterm +++|
01888 M00S01712.dfterm +++| RCE1 SA1 X2+B1 REWIND BUFFER POINTERS
01889 M00S01713.dfterm +++| SX6 X1
01890 M00S01714.dfterm +++| SA6 A1+B1
01891 M00S01715.dfterm +++| SA6 A6+B1
01892 M00S01716.dfterm +++| SB7 X2+ SAVE FET ADDRESS
01893 M00S01717.dfterm +++| SA1 X2+14 SET FAMILY/PACK DESCRIPTION
01894 M00S01718.dfterm +++| RJ SFD
01895 M00S01719.dfterm +++| SX2 B7 RESTORE FET ADDRESS
| Line S01720 Modification History |
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01896 M01S01720.ns2018 ---| CATLIST X2 LOAD BUFFER WITH CATALOG ENTRIES
| Line S00113 Modification History |
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01897 M01S00113.ns2018 +++| CATLIST X2,,,,,,,IE
01898 M00S01721.dfterm +++| SA1 C CHECK FOR ERROR
01899 M00S01722.dfterm +++| MX6 8
01900 M00S01723.dfterm +++| LX6 18
01901 M00S01724.dfterm +++| BX1 X6*X1
01902 M00S01725.dfterm +++| ZR X1,RCE2 IF NO ERROR
01903 M00S01726.dfterm +++|
01904 M00S01727.dfterm +++|* ISSUE ERROR MESSAGE.
01905 M00S01728.dfterm +++|
01906 M00S01729.dfterm +++| MX5 42 SET FAMILY/PACK NAME IN MESSAGE
01907 M00S01730.dfterm +++| SA1 X2+14
01908 M00S01731.dfterm +++| BX1 X5*X1
01909 M00S01732.dfterm +++| SB7 B0
01910 M00S01733.dfterm +++| RJ SFN SPACE FILL NAME
01911 M00S01734.dfterm +++| BX6 X5*X6
01912 M00S01735.dfterm +++| SA1 RCEA+3
01913 M00S01736.dfterm +++| BX1 -X5*X1
01914 M00S01737.dfterm +++| BX6 X1+X6
01915 M00S01738.dfterm +++| SA6 A1
01916 M00S01739.dfterm +++| SX5 RCEA SET MESSAGE ADDRESS
01917 M00S01740.dfterm +++| SA1 TARA+ARFC ISSUE DAYFILE MESSAGE ON *DFLIST*
| Line S01741 Modification History |
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01918 M01S01741.ns2018 ---| PL X1,RCEX IF NO *NK* PARAMETER
| Line S00114 Modification History |
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01919 M01S00114.ns2018 +++| PL X1,RCEX IF NO *PO=N* PARAMETER
01920 M00S01742.dfterm +++| SX6 X1-2
01921 M00S01743.dfterm +++| NZ X6,RCEX IF NOT LIST
01922 M00S01744.dfterm +++| MESSAGE X5
01923 M00S01745.dfterm +++| EQ RCEX
01924 M00S01746.dfterm +++|
01925 M00S01747.dfterm +++|* READ ONE CATALOG ENTRY.
01926 M00S01748.dfterm +++|
01927 M00S01749.dfterm +++| RCE2 READW X2,B6,NWCE READ A CATALOG ENTRY
01928 M00S01750.dfterm +++| BX5 X5-X5 CLEAR ERROR FLAG
01929 M00S01751.dfterm +++| ZR X1,RCEX IF CATALOG ENTRY TRANSFERRED
01930 M00S01752.dfterm +++| SX1 X1+B1
01931 M00S01753.dfterm +++| ZR X1,RCE1 IF NOT END OF CATALOG
01932 M00S01754.dfterm +++| EQ RCEX
01933 M00S01755.dfterm +++|
01934 M00S01756.dfterm +++| RCEA DATA C* CANNOT CATLIST FAMILY/PACK - .*
01935 M00S01757.dfterm +++| SAD SPACE 4,12
01936 M00S01758.dfterm +++|** SAD - SEARCH FOR ACTIVE DAYFILE.
01937 M00S01759.dfterm +++|*
01938 M00S01760.dfterm +++|* ENTRY (B3) = SHIFT COUNT FOR DAYFILE BITS IN TABLE *TEQA*.
01939 M00S01761.dfterm +++|*
| Line S01762 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01940 M01S01762.ns22000 ---|* EXIT (B2) = EQUIPMENT NUMBER OF ACTIVE DAYFILE.
| Line S00029 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01941 M01S00029.ns22000 +++|* EXIT (B2) = EST ORDINAL OF ACTIVE DAYFILE.
01942 M00S01763.dfterm +++|* (B4) = 0 IF ACTIVE DAYFILE FOUND.
01943 M00S01764.dfterm +++|* = 1 IF NOT FOUND.
01944 M00S01765.dfterm +++|* (X1) = FAMILY/PACK NAME WORD FOR ACTIVE DAYFILE.
01945 M00S01766.dfterm +++|*
01946 M00S01767.dfterm +++|* USES A - 1.
01947 M00S01768.dfterm +++|* B - 2, 4.
01948 M00S01769.dfterm +++|* X - 1, 5, 6.
01949 M00S01770.dfterm +++|
01950 M00S01771.dfterm +++|
01951 M00S01772.dfterm +++| SAD SUBR ENTRY/EXIT
| Line S01773 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01952 M01S01773.ns22000 ---| SB2 B0+ SET EQUIPMENT NUMBER
| Line S00030 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01953 M01S00030.ns22000 +++| SB2 B0+ SET EST ORDINAL
01954 M00S01774.dfterm +++| SB4 B1+ SET NO ACTIVE DAYFILE FLAG
01955 M00S01775.dfterm +++|
01956 M00S01776.dfterm +++|* SEARCH TABLE FOR ACTIVE DAYFILE OF SPECIFIED TYPE.
01957 M00S01777.dfterm +++|
01958 M00S01778.dfterm +++| SAD1 SA1 TEQA+B2 SEARCH TABLE
01959 M00S01779.dfterm +++| ZR X1,SADX IF END OF TABLE
01960 M00S01780.dfterm +++| SB2 B2+B1 ADVANCE EQUIPMENT
01961 M00S01781.dfterm +++| SX5 B1+
01962 M00S01782.dfterm +++| IX5 X5+X1
01963 M00S01783.dfterm +++| ZR X5,SAD1 IF NOT MASS STORAGE
01964 M00S01784.dfterm +++| AX6 B3,X1 CHECK FOR ACTIVE DAYFILE
01965 M00S01785.dfterm +++| SX5 B1+B1
01966 M00S01786.dfterm +++| BX6 X5*X6
01967 M00S01787.dfterm +++| ZR X6,SAD1 IF ACTIVE DAYFILE NOT ON DEVICE
01968 M00S01788.dfterm +++|
| Line S01789 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01969 M01S01789.ns22000 ---|* SET EQUIPMENT NUMBER AND FAMILY/PACK NAME WORD.
| Line S00031 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01970 M01S00031.ns22000 +++|* SET EST ORDINAL AND FAMILY/PACK NAME WORD.
01971 M00S01790.dfterm +++|
| Line S01791 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01972 M01S01791.ns22000 ---| SB2 B2-B1 SET EQUIPMENT NUMBER
| Line S00032 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01973 M01S00032.ns22000 +++| SB2 B2-B1 SET EST ORDINAL
01974 M00S01792.dfterm +++| SB4 B0 CLEAR FLAG
01975 M00S01793.dfterm +++| EQ SADX
01976 M00S01794.dfterm +++| SAI SPACE 4,10
01977 M00S01795.dfterm +++|** SAI - SET AUXILIARY PACK INFORMATION IN FETS.
01978 M00S01796.dfterm +++|*
01979 M00S01797.dfterm +++|* ENTRY (APIN) = 42/USER NUMBER, 6/UNITS, 12/EQUIPMENT.
01980 M00S01798.dfterm +++|*
01981 M00S01799.dfterm +++|* EXIT CATALOG (C) AND DAYFILE (D) FETS SET UP WITH DEVICE
01982 M00S01800.dfterm +++|* TYPE IN WORD 1, USER NUMBER, IF ANY, FOR PRIVATE PACK
01983 M00S01801.dfterm +++|* IN WORD 9, AND NUMBER OF PHYSICAL UNITS IN WORD 12.
01984 M00S01802.dfterm +++|*
01985 M00S01803.dfterm +++|* USES A - 1, 2, 6, 7.
01986 M00S01804.dfterm +++|* X - 0, 1, 2, 6, 7.
| Line S00115 Modification History |
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
01987 M01S00115.ns2018 +++|*
01988 M01S00116.ns2018 +++|* MACROS RDVT.
01989 M00S01805.dfterm +++|
01990 M00S01806.dfterm +++|
01991 M00S01807.dfterm +++| SAI SUBR ENTRY/EXIT
01992 M00S01808.dfterm +++|
01993 M00S01809.dfterm +++|* SET USER NUMBER FOR PACK IN FETS.
01994 M00S01810.dfterm +++|
01995 M00S01811.dfterm +++| SA1 APIN SET USER NUMBER
01996 M00S01812.dfterm +++| MX0 42
01997 M00S01813.dfterm +++| BX7 X0*X1
01998 M00S01814.dfterm +++| SA7 C+CFOU
01999 M00S01815.dfterm +++| SA7 D+CFOU
02000 M00S01816.dfterm +++|
02001 M00S01817.dfterm +++|* SET NUMBER OF PHYSICAL UNITS IN FETS.
02002 M00S01818.dfterm +++|
02003 M00S01819.dfterm +++| AX1 12 GET NUMBER UNITS - 1
02004 M00S01820.dfterm +++| MX0 -6
02005 M00S01821.dfterm +++| BX7 -X0*X1
02006 M00S01822.dfterm +++| SX6 X7+B1 SET UNITS
02007 M00S01823.dfterm +++| SA6 C+CFPK
02008 M00S01824.dfterm +++| SA6 D+CFPK
02009 M00S01825.dfterm +++|
02010 M00S01826.dfterm +++|* GET DEVICE TYPE.
02011 M00S01827.dfterm +++|
02012 M00S01828.dfterm +++| SA2 A1 SET EQUIPMENT
02013 M00S01829.dfterm +++| MX0 -12
02014 M00S01830.dfterm +++| BX2 -X0*X2
02015 M00S01831.dfterm +++| RDVT D,X2
02016 M00S01832.dfterm +++| SA2 D+1 SET DEVICE TYPE IN CATALOG FET
02017 M00S01833.dfterm +++| SA1 C+1
| Line S00001 Modification History |
M01 (Added by) | dfterm3 |
Seq # *Modification Id* Act
----------------------------+
02018 M01S00001.dfterm3 +++| MX0 12
02019 M00S01834.dfterm +++| BX6 X0*X2
02020 M00S01835.dfterm +++| BX1 -X0*X1
02021 M00S01836.dfterm +++| BX7 X1+X6
02022 M00S01837.dfterm +++| SA7 A1
02023 M00S01838.dfterm +++| EQ SAIX
02024 M00S01839.dfterm +++| SFD SPACE 4,16
02025 M00S01840.dfterm +++|** SFD - SET FAMILY DESCRIPTION.
02026 M00S01841.dfterm +++|*
02027 M00S01842.dfterm +++|* ENTRY (X1) = 42/FAMILY OR PACK NAME, 1/F, 17/USER INDEX.
02028 M00S01843.dfterm +++|* F = AUXILIARY PACK FLAG.
02029 M00S01844.dfterm +++|*
02030 M00S01845.dfterm +++|* EXIT FAMILY/PACK NAME AND/OR USER INDEX SET IN CONTROL
02031 M00S01846.dfterm +++|* POINT AREA IF REQUESTED VALUE WAS DIFFERENT THAN THE
02032 M00S01847.dfterm +++|* CURRENT VALUE STORED INTERNALLY TO *SFD*. ILLEGAL
02033 M00S01848.dfterm +++|* VALUES FOR CURRENT FAMILY NAME AND CURRENT USER INDEX
02034 M00S01849.dfterm +++|* ARE STORED INITIALLY TO FORCE A CALL TO *CPM* ON THE
02035 M00S01850.dfterm +++|* FIRST CALL TO *SFD*.
02036 M00S01851.dfterm +++|* AUXILIARY PACK INFORMATION IS SET IN THE FETS IF
02037 M00S01852.dfterm +++|* NECESSARY.
02038 M00S01853.dfterm +++|*
02039 M00S01854.dfterm +++|* USES A - 2, 6.
02040 M00S01855.dfterm +++|* X - 0, 2, 3, 5, 6, 7.
02041 M00S01856.dfterm +++|*
02042 M00S01857.dfterm +++|* CALLS SAI.
| Line S00117 Modification History |
M01 (Added by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
02043 M01S00117.ns2018 +++|*
02044 M01S00118.ns2018 +++|* MACROS ENFAM, PACKNAM, SETUI.
02045 M00S01858.dfterm +++|
02046 M00S01859.dfterm +++|
02047 M00S01860.dfterm +++| SFD SUBR ENTRY/EXIT
02048 M00S01861.dfterm +++|
02049 M00S01862.dfterm +++|* COMPARE CURRENT AND REQUESTED FAMILY AND USER INDEX.
02050 M00S01863.dfterm +++|
02051 M00S01864.dfterm +++| MX3 -17 REQUESTED USER INDEX
02052 M00S01865.dfterm +++| BX6 -X3*X1
02053 M00S01866.dfterm +++| SA2 SFDA+2 CURRENT USER INDEX
02054 M00S01867.dfterm +++| BX5 X3*X1 REQUESTED FAMILY/PACK NAME
02055 M00S01868.dfterm +++| IX7 X2-X6
02056 M00S01869.dfterm +++| ZR X7,SFD1 IF REQUESTED USER INDEX ALREADY SET
02057 M00S01870.dfterm +++| SA6 A2 SET NEW USER INDEX
02058 M00S01871.dfterm +++| SETUI X6
02059 M00S01872.dfterm +++|
02060 M00S01873.dfterm +++|* CHECK IF FAMILY OR PACK REQUESTED.
02061 M00S01874.dfterm +++|
02062 M00S01875.dfterm +++| SFD1 SX6 X5+ CHECK AUXILIARY DEVICE FLAG
02063 M00S01876.dfterm +++| SA2 SFDA+B1 CURRENT FAMILY/PACK
02064 M00S01877.dfterm +++| NZ X6,SFD2 IF AUXILIARY PACK
02065 M00S01878.dfterm +++|
02066 M00S01879.dfterm +++|* SET FAMILY NAME IF NECESSARY.
02067 M00S01880.dfterm +++|
02068 M00S01881.dfterm +++| BX7 X5-X2
02069 M00S01882.dfterm +++| BX6 X5 SET NEW FAMILY NAME
02070 M00S01883.dfterm +++| ZR X7,SFDX IF REQUESTED FAMILY ALREADY SET
02071 M00S01884.dfterm +++| SA6 A2
02072 M00S01885.dfterm +++| SA6 A6-B1
02073 M00S01886.dfterm +++| BX6 X6-X6 CLEAR ALTERNATE USER NUMBER IN FET
02074 M00S01887.dfterm +++| SA6 C+CFOU
02075 M00S01888.dfterm +++| PACKNAM 0 CLEAR PACK NAME
02076 M00S01889.dfterm +++| ENFAM SFDA
02077 M00S01890.dfterm +++| EQ SFDX RETURN
02078 M00S01891.dfterm +++|
02079 M00S01892.dfterm +++|* SET PACK NAME IF NECESSARY.
02080 M00S01893.dfterm +++|
02081 M00S01894.dfterm +++| SFD2 SX6 B1 SET AUXILIARY PACK FLAG
02082 M00S01895.dfterm +++| MX0 42
02083 M00S01896.dfterm +++| BX5 X0*X5
02084 M00S01897.dfterm +++| BX6 X5+X6
02085 M00S01898.dfterm +++| BX7 X6-X2
02086 M00S01899.dfterm +++| ZR X7,SFDX IF REQUESTED PACK ALREADY SET
02087 M00S01900.dfterm +++| SA6 A2
02088 M00S01901.dfterm +++| BX6 X5 SET PACK NAME IN CONTROL POINT AREA
02089 M00S01902.dfterm +++| SA6 A6-B1
02090 M00S01903.dfterm +++| PACKNAM SFDA
02091 M00S01904.dfterm +++| RJ SAI SET AUXILIARY PACK INFORMATION
02092 M00S01905.dfterm +++| EQ SFDX RETURN
02093 M00S01906.dfterm +++|
02094 M00S01907.dfterm +++| SFDA BSS 1 SCRATCH AREA FOR ENFAM MACRO
02095 M00S01908.dfterm +++| VFD 42/1,18/0 CURRENT FAMILY/PACK NAME
02096 M00S01909.dfterm +++| VFD 42/0,18/0 CURRENT USER INDEX
02097 M00S01910.dfterm +++| VVD SPACE 4,26
02098 M00S01911.dfterm +++|** VVD - VERIFY VALID DEVICE FOR DAYFILE EXISTENCE.
02099 M00S01912.dfterm +++|*
02100 M00S01913.dfterm +++|* CHECK FOR AUXILIARY OR REMOVABLE DEVICES. ACTIVE
02101 M00S01914.dfterm +++|* DAYFILES MAY NOT EXIST ON REMOVABLE DEVICES. ALSO,
02102 M00S01915.dfterm +++|* NEW ACTIVE DAYFILES MAY NOT BE STARTED ON PRIVATE
02103 M00S01916.dfterm +++|* PACKS UNLESS THE USER NUMBER SPECIFIED FOR PERMITS
02104 M00S01917.dfterm +++|* MATCHES THE USER NUMBER OF THE PRIVATE PACK.
02105 M00S01918.dfterm +++|*
02106 M00S01919.dfterm +++|* ENTRY (X2) = OPTION.
02107 M00S01920.dfterm +++|* (X3) = DAYFILE TYPE.
| Line S01921 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02108 M01S01921.ns22000 ---|* (X4) = EQUIPMENT NUMBER.
| Line S00033 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02109 M01S00033.ns22000 +++|* (X4) = EST ORDINAL.
02110 M00S01922.dfterm +++|*
02111 M00S01923.dfterm +++|* EXIT (X2) = OPTION.
02112 M00S01924.dfterm +++|* (X3) = DAYFILE TYPE.
| Line S01925 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02113 M01S01925.ns22000 ---|* (X4) = EQUIPMENT NUMBER.
| Line S00034 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02114 M01S00034.ns22000 +++|* (X4) = EST ORDINAL.
02115 M00S01926.dfterm +++|* (X5) = 0 IF NO ERROR.
02116 M00S01927.dfterm +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR.
02117 M00S01928.dfterm +++|* (X6) = FAMILY/PACK NAME FOR EQUIPMENT.
02118 M00S01929.dfterm +++|* (X7) = DAYFILE EXISTENCE BITS FOR SPECIFIED TYPE.
02119 M00S01930.dfterm +++|* (B3) = SHIFT COUNT FOR DAYFILE BITS.
02120 M00S01931.dfterm +++|* (APIN) = AUXILIARY PACK INFORMATION.
| Line S01932 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02121 M01S01932.ns22000 ---|* 42/USER NUMBER, 6/UNITS, 12/EQUIPMENT NUMBER.
| Line S00035 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02122 M01S00035.ns22000 +++|* 42/USER NUMBER, 6/UNITS, 12/EST ORDINAL.
02123 M00S01933.dfterm +++|*
02124 M00S01934.dfterm +++|* USES A - 1, 5, 6.
02125 M00S01935.dfterm +++|* B - 2, 3.
02126 M00S01936.dfterm +++|* X - 0, 1, 5, 6, 7.
02127 M00S01937.dfterm +++|
02128 M00S01938.dfterm +++|
02129 M00S01939.dfterm +++| VVD SUBR ENTRY/EXIT
02130 M00S01940.dfterm +++|
02131 M00S01941.dfterm +++|* CHECK IF LEGAL DEVICE FOR TERMINATION.
02132 M00S01942.dfterm +++|
02133 M00S01943.dfterm +++| SA1 TEQA+X4 GET EQUIPMENT ENTRY
02134 M00S01944.dfterm +++| BX7 X7-X7 CHECK IF AUXILIARY DEVICE
02135 M00S01945.dfterm +++| LX1 59-2
02136 M00S01946.dfterm +++| PL X1,VVD1 IF NOT AUXILIARY DEVICE
02137 M00S01947.dfterm +++| SA5 TMSA+X4 SET AUXILIARY PACK INFORMATION
02138 M00S01948.dfterm +++| MX0 48
02139 M00S01949.dfterm +++| BX5 X0*X5
02140 M00S01950.dfterm +++| BX6 X5+X4
02141 M00S01951.dfterm +++| SX7 B1 SET AUXILIARY DEVICE FLAG
02142 M00S01952.dfterm +++| SA6 APIN
02143 M00S01953.dfterm +++| MX0 42 GET USER NUMBER
02144 M00S01954.dfterm +++| BX6 X0*X6
02145 M00S01955.dfterm +++| ZR X6,VVD1 IF NOT PRIVATE PACK
02146 M00S01956.dfterm +++| SA5 PUNA CHECK IF LEGAL PACK FOR TERMINATION
02147 M00S01957.dfterm +++| BX6 X5-X6
02148 M00S01958.dfterm +++| ZR X6,VVD1 IF PRIVATE PACK UN SAME AS PERMIT
02149 M00S01959.dfterm +++| SX5 =C* PRIVATE PACK/PERMIT UN CONFLICT.*
02150 M00S01960.dfterm +++| EQ VVDX
02151 M00S01961.dfterm +++|
02152 M00S01962.dfterm +++| VVD1 LX1 2-1
02153 M00S01963.dfterm +++| PL X1,VVD2 IF NOT REMOVABLE DEVICE
02154 M00S01964.dfterm +++| NZ X2,VVD3 IF ACTIVE DAYFILE TERMINATION
02155 M00S01965.dfterm +++|
02156 M00S01966.dfterm +++|* GET FAMILY/PACK NAME AND DAYFILE EXISTENCE BITS.
02157 M00S01967.dfterm +++|
02158 M00S01968.dfterm +++| VVD2 SA1 A1 GET FAMILY/PACK NAME
02159 M00S01969.dfterm +++| MX0 42
02160 M00S01970.dfterm +++| BX6 X0*X1
02161 M00S01971.dfterm +++| BX6 X6+X7 ADD AUXILIARY DEVICE FLAG
02162 M00S01972.dfterm +++| SX5 X3-1 SET SHIFT COUNT FOR DAYFILE RESIDENCE BITS
02163 M00S01973.dfterm +++| SB2 10
02164 M00S01974.dfterm +++| LX5 X5,B1
02165 M00S01975.dfterm +++| SB3 X5+
02166 M00S01976.dfterm +++| MX0 -2 GET DAYFILE TYPE BITS FOR DEVICE
02167 M00S01977.dfterm +++| SB3 B2-B3
02168 M00S01978.dfterm +++| AX1 B3
02169 M00S01979.dfterm +++| BX7 -X0*X1
02170 M00S01980.dfterm +++| BX5 X5-X5 SET NO ERROR
02171 M00S01981.dfterm +++| EQ VVDX
02172 M00S01982.dfterm +++|
02173 M00S01983.dfterm +++| VVD3 SX5 =C* REMOVABLE DEVICE/NO ACTIVE DAYFILES.*
02174 M00S01984.dfterm +++| EQ VVDX
02175 M00S01985.dfterm +++| TITLE DAYFILE NAME TABLES.
02176 M00S01986.dfterm +++|** TDNK - TABLE OF DAYFILE NAME KEYS.
02177 M00S01987.dfterm +++|*
02178 M00S01988.dfterm +++|* INDEX INTO TABLE IS DAYFILE TYPE CODE (ZERO IF NOT A DAYFILE
02179 M00S01989.dfterm +++|* NAME).
02180 M00S01990.dfterm +++|
02181 M00S01991.dfterm +++| TDNK BSS 0 TABLE OF DAYFILE NAME KEYS
02182 M00S01992.dfterm +++| LOC 0
02183 M00S01993.dfterm +++| BSS 1 INPUT KEY (USED BY SEARCH ALGORITHM)
02184 M00S01994.dfterm +++| DATA 2LDF MASTER DAYFILE TYPE
02185 M00S01995.dfterm +++| DATA 2LAC ACCOUNT DAYFILE TYPE
02186 M00S01996.dfterm +++| DATA 2LER ERROR LOG DAYFILE TYPE
02187 M00S01997.dfterm +++| DATA 2LML MAINTENANCE LOG DAYFILE TYPE
02188 M00S01998.dfterm +++| TDNKL BSS 0 TABLE LENGTH
02189 M00S01999.dfterm +++| LOC *O
02190 M00S02000.dfterm +++| SPACE 4,3
02191 M00S02001.dfterm +++|** TDFT - TABLE OF DAYFILE TYPE NAMES.
02192 M00S02002.dfterm +++|*
02193 M00S02003.dfterm +++|* INDEX INTO TABLE IS DAYFILE TYPE CODE (ZERO IF NOT A DAYFILE).
02194 M00S02004.dfterm +++|
02195 M00S02005.dfterm +++| TDFT BSS 0 TABLE OF DAYFILE TYPES
02196 M00S02006.dfterm +++| LOC 0
02197 M00S02007.dfterm +++| DATA 10LNONE NOT DAYFILE
02198 M00S02008.dfterm +++| DATA 10LDAYFILE MASTER DAYFILE
02199 M00S02009.dfterm +++| DATA 10LACCOUNT ACCOUNT DAYFILE
02200 M00S02010.dfterm +++| DATA 10LERRLOG ERROR LOG DAYFILE
02201 M00S02011.dfterm +++| DATA 10LMAINLOG MAINTENANCE LOG DAYFILE
02202 M00S02012.dfterm +++| LOC *O
02203 M00S02013.dfterm +++| TITLE ERROR PROCESSING TABLES.
| Line S02014 Modification History |
M01 (Removed by) | ns2018 |
Seq # *Modification Id* Act
----------------------------+
02204 M01S02014.ns2018 ---|** TPEP - TABLE OF *PFM* ERROR PROCESSING.
02205 M01S02015.ns2018 ---|*
02206 M01S02016.ns2018 ---|* INDEX INTO TABLE IS *PFM* ERROR CODE.
02207 M01S02017.ns2018 ---|* QUANTITY REPRESENTS ERROR MESSAGE ADDRESS UNLESS UPPER
02208 M01S02018.ns2018 ---|* BIT IN WORD IS SET, IN WHICH CASE QUANTITY IS THE ERROR
02209 M01S02019.ns2018 ---|* PROCESSOR ADDRESS.
02210 M01S02020.ns2018 ---|
02211 M01S02021.ns2018 ---| TPEP BSS 0 TABLE OF *PFM* ERROR PROCESSING
02212 M01S02022.ns2018 ---| LOC 0
02213 M01S02023.ns2018 ---| BSS 1
02214 M01S02024.ns2018 ---| CON MPER FILE BUSY
02215 M01S02025.ns2018 ---| CON MPER FILE NOT FOUND
02216 M01S02026.ns2018 ---| CON MPER FILE EMPTY
02217 M01S02027.ns2018 ---| CON MPER FILE NOT ON MASS STORAGE
02218 M01S02028.ns2018 ---| VFD 1/1,59/ERP1 FILE ALREADY PERMANENT
02219 M01S02029.ns2018 ---| CON MPER FILE ILLEGAL FILE TYPE
02220 M01S02030.ns2018 ---| CON MPER FILE NAME ERROR
02221 M01S02031.ns2018 ---| CON MPER ILLEGAL USER ACCESS
02222 M01S02032.ns2018 ---| CON MPER ILLEGAL DEVICE REQUEST
02223 M01S02033.ns2018 ---| CON MPER FILE TOO LONG
02224 M01S02034.ns2018 ---| CON MPER PFM ILLEGAL REQUEST
02225 M01S02035.ns2018 ---| CON MPER DEVICE UNAVAILABLE
02226 M01S02036.ns2018 ---| CON MPER DIRECT ACCESS DEVICE ERROR
02227 M01S02037.ns2018 ---| VFD 1/1,59/ERP2 PF UTILITY ACTIVE
02228 M01S02038.ns2018 ---| CON MPER DATA TRANSFER ERROR
02229 M01S02039.ns2018 ---| CON MPER CATALOG OVERFLOW - FILES
02230 M01S02040.ns2018 ---| CON MPER CATALOG OVERFLOW - SIZE
02231 M01S02041.ns2018 ---| CON MPER PRUS REQUESTED NOT AVAILABLE
02232 M01S02042.ns2018 ---| CON MPER I/O SEQUENCE ERROR
02233 M01S02043.ns2018 ---| BSS 4
02234 M01S02044.ns2018 ---| VFD 1/1,59/ERP3 RESEX FAILURE
02235 M01S02045.ns2018 ---| VFD 1/1,59/ERP3 EQ TRACK LIMIT
02236 M01S02046.ns2018 ---| VFD 1/1,59/ERP3 FILE LENGTH ERROR
02237 M01S02047.ns2018 ---| VFD 1/1,59/ERP3 RANDOM INDEX ERROR
02238 M01S02048.ns2018 ---| VFD 1/1,59/ERP3 DIRECT ACCESS FILE ERROR
02239 M01S02049.ns2018 ---| VFD 1/1,59/ERP3 REPLACE ERROR
02240 M01S02050.ns2018 ---| VFD 1/1,59/ERP3 PFM ABORTED
02241 M01S02051.ns2018 ---| VFD 1/1,59/ERP3 MASS STORAGE ERROR
02242 M01S02052.ns2018 ---| LOC *O
02243 M01S02053.ns2018 ---| SPACE 4
02244 M00S02054.dfterm +++|** TSEP - TABLE OF *SFM* ERROR PROCESSING.
02245 M00S02055.dfterm +++|*
02246 M00S02056.dfterm +++|* INDEX INTO TABLE IS *SFM* ERROR CODE.
02247 M00S02057.dfterm +++|* QUANTITY REPRESENTS ERROR MESSAGE ADDRESS.
02248 M00S02058.dfterm +++|
02249 M00S02059.dfterm +++| TSEP BSS 0 TABLE OF *SFM* ERROR PROCESSING
02250 M00S02060.dfterm +++| LOC 0
02251 M00S02061.dfterm +++| BSS 1
02252 M00S02062.dfterm +++| CON MS01 FILE BUSY
02253 M00S02063.dfterm +++| CON MS02 NOT ENOUGH MASS STORAGE
02254 M00S02064.dfterm +++| CON MS03 FILE NOT FOUND
02255 M00S02065.dfterm +++| CON MS04 UNCORRECTABLE RMS ERROR
02256 M00S02066.dfterm +++| LOC *O
02257 M00S02067.dfterm +++| TITLE ERROR PROCESSING MESSAGES.
02258 M00S02068.dfterm +++|** *SFM* ERROR MESSAGES.
02259 M00S02069.dfterm +++|
02260 M00S02070.dfterm +++| MS01 DATA C* DAYFILE BUSY. *
02261 M00S02071.dfterm +++| MS02 DATA C* NOT ENOUGH MASS STORAGE. *
02262 M00S02072.dfterm +++| MS03 DATA C* INACTIVE DAYFILE NOT FOUND ON DEVICE. *
02263 M00S02073.dfterm +++| MS04 DATA C* UNCORRECTABLE RMS ERROR. *
02264 M00S02074.dfterm +++|
02265 M00S02075.dfterm +++|** *PFM* ERROR MESSAGES.
02266 M00S02076.dfterm +++|
02267 M00S02077.dfterm +++| MPER BSS 4 *PFM* ERROR MESSAGE RETURN BLOCK
02268 M00S02078.dfterm +++| TITLE COMMON DECKS.
| Line S00036 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02269 M01S00036.ns22000 +++| COMMON SPACE 4,10
02270 M01S00037.ns22000 +++|** COMMON DECKS.
02271 M01S00038.ns22000 +++|
02272 M01S00039.ns22000 +++|
02273 M00S02079.dfterm +++|*CALL COMCCDD
02274 M00S02080.dfterm +++|*CALL COMCCIO
02275 M00S02081.dfterm +++|*CALL COMCCOD
02276 M00S02082.dfterm +++|*CALL COMCCPM
02277 M00S02083.dfterm +++|*CALL COMCEDT
02278 M00S02084.dfterm +++|*CALL COMCLFM
02279 M00S02085.dfterm +++|*CALL COMCMVE
02280 M00S02086.dfterm +++|*CALL COMCPFM
02281 M00S02087.dfterm +++|*CALL COMCRDC
02282 M00S02088.dfterm +++|*CALL COMCRDW
02283 M00S02089.dfterm +++|*CALL COMCSFM
02284 M00S02090.dfterm +++|*CALL COMCSFN
02285 M00S02091.dfterm +++|*CALL COMCSYS
02286 M00S02092.dfterm +++|*CALL COMCWTC
02287 M00S02093.dfterm +++|*CALL COMCWTW
02288 M00S02094.dfterm +++| TITLE BUFFERS.
02289 M00S02095.dfterm +++| USE LITERALS
02290 M00S02096.dfterm +++|
02291 M00S02097.dfterm +++|* BUFFERS.
02292 M00S02098.dfterm +++|
02293 M00S02099.dfterm +++| CENB BSS NWCE CATALOG ENTRY BUFFER
02294 M00S02100.dfterm +++| PDCB BSS PDCBL PERMANENT DAYFILE LIST CONTROL BUFFER
02295 M00S02101.dfterm +++| PDLB BSS PDLBL PERMANENT DAYFILE LIST LINE BUFFER
| Line S02102 Modification History |
M01 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
02296 M01S02102.241l630 ---| KBUF VFD 12/1,48/0 *K* DISPLAY BUFFER
| Line S00007 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
02297 M01S00007.241l630 +++| KBUF VFD 11/0,1/1,1/1,5/0,18/KTIA,24/0 K-DISPLAY BUFFER
02298 M00S02103.dfterm +++| DBUF EQU *+KBUFL TERMINATED DAYFILE BUFFER
02299 M00S02104.dfterm +++| CBUF EQU DBUF+DBUFL CATALOG BUFFER
02300 M00S02105.dfterm +++| OBUF EQU CBUF+CBUFL OUTPUT BUFFER
02301 M00S02106.dfterm +++| DSPB EQU OBUF+OBUFL *DSP* PARAMETER BLOCK
02302 M00S02107.dfterm +++| BUFFL EQU DSPB+DSPBL END OF BUFFERS
02303 M00S02108.dfterm +++| SPACE 4,10
02304 M00S02109.dfterm +++| ERRPL *-RFL IF DEFAULT FIELD LENGTH TOO SMALL
02305 M00S02110.dfterm +++| SPACE 4
02306 M00S02111.dfterm +++| END DFTERM