cdc:nos2.source:opl.opl871:common:comcpfs.004
Common COMCPFS Part 004
10 Modifications
Listing Sections
- Common COMCPFS Start
- Common COMCPFS Part 1 (Line 726)
- Common COMCPFS Part 2 (Line 1784)
- Common COMCPFS Part 3 (Line 2751)
- Common COMCPFS Part 4 (Line 3760)
- Common COMCPFS Part 5 (Line 4541)
Source
Seq # *Modification Id* Act ----------------------------+
| Line S01515 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03760 M03S01515.cpfs2 ---| SX1 X1+3
| Line S01516 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03761 M03S01516.cpfs2 ---| NZ X1,RCE2 IF NOT READ ERROR
| Line S01517 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03762 M03S01517.cpfs2 ---| SX7 X2
| Line S01518 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03763 M03S01518.cpfs2 ---| SB3 B0 SET *SECTOR NOT READ* STATUS
| Line S01519 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03764 M03S01519.cpfs2 ---| SA1 CPCW GET PREVIOUS SECTOR CONTROL WORD
| Line S01520 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03765 M03S01520.cpfs2 ---| BX6 X1
| Line S01521 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03766 M03S01521.cpfs2 ---| RJ PCE PROCESS CATALOG READ ERROR
| Line S01522 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03767 M03S01522.cpfs2 ---| RCE2 SX6 B1 SET END OF CATALOG TRACK FLAG
| Line S01523 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03768 M03S01523.cpfs2 ---| SA6 CFTS
| Line S01524 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03769 M03S01524.cpfs2 ---| BX6 X6-X6 CLEAR UNPROCESSED CONTROL WORD
| Line S01525 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03770 M03S01525.cpfs2 ---| SA6 CWNP
| Line S01526 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03771 M03S01526.cpfs2 ---| RCE3 SB3 CBUF SET BUFFER INDICES
| Line S01527 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03772 M03S01527.cpfs2 ---| SA1 RCEB
| Line S01528 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03773 M03S01528.cpfs2 ---| SB6 X1+
| Line S01529 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
M03 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03774 M03S01529.cpfs2 ---| EQ RCE11 CHECK CATALOG ENTRY FORMAT
| Line S02134 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03775 M02S02134.cpfs2 ---| RCS1 SX6 1
| Line S02135 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03776 M02S02135.cpfs2 ---| SA6 RCSA SET FATAL ERROR STATUS 03777 M01S01530.comcpfs +++|
| Line S01531 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03778 M02S01531.286l859 ---|* CHECK ERROR STATUS. 03779 M01S02136.286l859 +++|* ISSUE ERROR MESSAGE. 03780 M01S01532.comcpfs +++|
| Line S01533 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03781 M02S01533.286l859 ---| RCE4 SA6 CWNP SAVE CONTROL WORD
| Line S01534 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03782 M02S01534.286l859 ---| RCE5 NG X6,RCE8 IF CONTROL WORD ERROR INDICATOR SET
| Line S02137 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03783 M02S02137.cpfs2 ---| RCS2 SA1 PDUI 03784 M01S00016.cpfs2 +++| BX6 X4 03785 M01S00017.cpfs2 +++| SA6 RCSB SAVE FATAL ERROR STATUS 03786 M01S00018.cpfs2 +++| SA1 PDUI 03787 M01S02138.286l859 +++| RJ SFE SEND ERROR MESSAGE
| Line S02139 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03788 M02S02139.cpfs2 ---| SA1 RCSA GET ERROR STATUS 03789 M01S00019.cpfs2 +++| SA1 RCSB GET ERROR STATUS 03790 M01S02140.286l859 +++| EQ RCSX RETURN 03791 M01S01535.comcpfs +++|
| Line S01536 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03792 M02S01536.286l859 ---|* DETERMINE IF SECTOR WILL FIT INTO REMAINING BUFFER SPACE. 03793 M01S01537.comcpfs +++|
| Line S01538 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03794 M02S01538.286l859 ---| MX0 -18 GET SECTOR LENGTH (BYTES)
| Line S01539 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03795 M02S01539.286l859 ---| BX6 -X0*X6
| Line S01540 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03796 M02S01540.286l859 ---| SX3 5 CONVERT LENGTH FROM BYTES TO WORDS
| Line S01541 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03797 M02S01541.286l859 ---| IX6 X6/X3
| Line S01542 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03798 M02S01542.286l859 ---| SA1 RCEC GET REMAINING BUFFER SPACE
| Line S01543 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03799 M02S01543.286l859 ---| IX7 X1-X6
| Line S01544 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03800 M02S01544.286l859 ---| SA7 RCEC UPDATE REMAINING BUFFER SPACE
| Line S01545 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03801 M02S01545.286l859 ---| NG X7,RCE3 IF NOT ENOUGH ROOM IN BUFFER
| Line S01546 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03802 M02S01546.286l859 ---|
| Line S01547 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03803 M02S01547.286l859 ---|* TRANSFER GOOD CATALOG SECTOR TO WORKING BUFFER.
| Line S01548 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03804 M02S01548.286l859 ---|
| Line S01549 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03805 M02S01549.286l859 ---| BX7 X7-X7 CLEAR UNPROCESSED CONTROL WORD
| Line S01550 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03806 M02S01550.286l859 ---| SA7 CWNP
| Line S01551 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03807 M02S01551.286l859 ---| SA1 RCEB GET IN POINTER
| Line S01552 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03808 M02S01552.286l859 ---| RCE6 READW X2,X1,X6 READ SECTOR OF CATALOG ENTRIES
| Line S01553 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03809 M02S01553.286l859 ---| SX6 B6+ UPDATE IN POINTER
| Line S01554 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03810 M02S01554.286l859 ---| SA6 RCEB
| Line S01555 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03811 M02S01555.286l859 ---| ZR B7,RCE7 IF TRANSFER COMPLETE
| Line S01556 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03812 M02S01556.286l859 ---| SX1 B6
| Line S01557 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03813 M02S01557.286l859 ---| SX6 B7
| Line S01558 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03814 M02S01558.286l859 ---| EQ RCE6 READ REMAINDER OF CATALOG SECTOR
| Line S01559 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03815 M02S01559.286l859 ---|
| Line S01560 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03816 M02S01560.286l859 ---|* READ AND SAVE *CIO* TRAILER CONTROL WORD.
| Line S01561 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03817 M02S01561.286l859 ---|
| Line S01562 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03818 M02S01562.286l859 ---| RCE7 READO X2 READ CONTROL WORD
| Line S01563 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03819 M02S01563.286l859 ---| SA6 CPCW SAVE CONTROL WORD
| Line S01564 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03820 M02S01564.286l859 ---| SA3 RCED INSERT INTO LIST
| Line S01565 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03821 M02S01565.286l859 ---| SA6 X3
| Line S01566 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03822 M02S01566.286l859 ---| SX6 X3+B1 INCREMENT LIST POINTER
| Line S01567 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03823 M02S01567.286l859 ---| SA6 A3+
| Line S01568 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03824 M02S01568.286l859 ---| EQ RCE1 PROCESS NEXT SECTOR
| Line S01569 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03825 M02S01569.286l859 ---|
| Line S01570 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03826 M02S01570.286l859 ---|* READ BAD CATALOG SECTOR.
| Line S01571 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03827 M02S01571.286l859 ---|
| Line S01572 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03828 M02S01572.286l859 ---| RCE8 LX6 17-53 DETERMINE LENGTH OF BAD SECTOR
| Line S01573 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03829 M02S01573.286l859 ---| MX0 -18
| Line S01574 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03830 M02S01574.286l859 ---| BX6 -X0*X6
| Line S01575 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03831 M02S01575.286l859 ---| SX1 BCBUF
| Line S01576 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03832 M02S01576.286l859 ---| RCE9 READW X2,X1,X6 READ BAD CATALOG SECTOR
| Line S01577 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03833 M02S01577.286l859 ---| SX6 B6+ SAVE LWA+1
| Line S01578 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03834 M02S01578.286l859 ---| SA6 RCEF
| Line S01579 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03835 M02S01579.286l859 ---| ZR B7,RCE10 IF TRANSFER COMPLETE
| Line S01580 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03836 M02S01580.286l859 ---| SX1 B6
| Line S01581 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03837 M02S01581.286l859 ---| SX6 B7
| Line S01582 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03838 M02S01582.286l859 ---| EQ RCE9 READ REMAINDER OF CATALOG SECTOR
| Line S01583 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03839 M02S01583.286l859 ---|
| Line S01584 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03840 M02S01584.286l859 ---|* READ AND SAVE BAD SECTOR *CIO* TRAILER CONTROL WORD.
| Line S01585 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03841 M02S01585.286l859 ---|
| Line S01586 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03842 M02S01586.286l859 ---| RCE10 READO X2 READ *CIO* TRAILER CONTROL WORD
| Line S01587 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03843 M02S01587.286l859 ---| SA6 CPCW SAVE CONTROL WORD
| Line S01588 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03844 M02S01588.286l859 ---| SB3 BCBUF SET BUFFER INDICES
| Line S01589 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03845 M02S01589.286l859 ---| SA1 RCEF
| Line S01590 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03846 M02S01590.286l859 ---| SB6 X1+
| Line S01591 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03847 M02S01591.286l859 ---|
| Line S01592 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03848 M02S01592.286l859 ---|* CHECK CATALOG ENTRY FORMAT.
| Line S01593 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03849 M02S01593.286l859 ---|
| Line S01594 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03850 M02S01594.286l859 ---| RCE11 BSS 0
| Line S01595 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03851 M02S01595.286l859 ---| IF DEF,PF8$,1
| Line S01596 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03852 M02S01596.286l859 ---| RJ CCF CHECK CATALOG FORMAT
| Line S01597 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03853 M02S01597.286l859 ---| SA1 RCEF
| Line S01598 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03854 M02S01598.286l859 ---| ZR X1,RCEX IF NOT PROCESSING BAD CATALOG SECTOR
| Line S01599 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03855 M02S01599.286l859 ---|
| Line S01600 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03856 M02S01600.286l859 ---|* PROCESS BAD CATALOG SECTOR.
| Line S01601 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03857 M02S01601.286l859 ---|
| Line S01602 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03858 M02S01602.286l859 ---| EQ B3,B6,RCE12 IF NO CATALOG ENTRIES
| Line S01603 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03859 M02S01603.286l859 ---| SA1 RCEA GET CATALOG FET ADDRESS
| Line S01604 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03860 M02S01604.286l859 ---| BX7 X1
| Line S01605 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03861 M02S01605.286l859 ---| SA1 CPCW GET BAD SECTOR TRAILER CONTROL WORD
| Line S01606 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03862 M02S01606.286l859 ---| BX6 X1
| Line S01607 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03863 M02S01607.286l859 ---| RJ PCE PROCESS CATALOG ERRORS
| Line S01608 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03864 M02S01608.286l859 ---| RCE12 BX6 X6-X6 CLEAR BAD CATALOG SECTOR LWA+1 (FLAG)
| Line S01609 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03865 M02S01609.286l859 ---| SA6 RCEF
| Line S01610 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03866 M02S01610.286l859 ---| SA2 RCEA GET FET ADDRESS
| Line S01611 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03867 M02S01611.286l859 ---| EQ RCE1 READ NEXT CATALOG SECTOR
| Line S01612 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03868 M02S01612.286l859 ---|
| Line S01613 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03869 M02S01613.286l859 ---|
| Line S01614 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03870 M02S01614.286l859 ---| RCEA BSSZ 1 FET ADDRESS
| Line S01615 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03871 M02S01615.286l859 ---| RCEB BSSZ 1 CATALOG BUFFER IN POINTER
| Line S01616 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03872 M02S01616.286l859 ---| RCEC BSSZ 1 REMAINING CATALOG BUFFER SPACE
| Line S01617 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03873 M02S01617.286l859 ---| RCED BSSZ 1 NEXT TRAILER CONTROL WORD LIST ENTRY
| Line S01618 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03874 M02S01618.286l859 ---| RCEF BSSZ 1 BAD CATALOG SECTOR LWA+1
| Line S02141 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03875 M02S02141.cpfs2 ---| RCSA CON 0 LEADING CONTROL WORD/ERROR STATUS 03876 M01S00020.cpfs2 +++| RCSA CON 0 LEADING CONTROL WORD 03877 M01S00021.cpfs2 +++| RCSB CON 0 FATAL ERROR STATUS 03878 M01S01619.comcpfs +++| SPACE 4,10 03879 M01S01620.comcpfs +++|* CATALOG FILE STATUS DATA AND BUFFERS. 03880 M01S01621.comcpfs +++|
| Line S01622 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03881 M02S01622.286l859 ---| CBIN BSSZ 1 INDEX OF CATALOG ENTRY IN *CBUF*
| Line S01623 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03882 M02S01623.286l859 ---| CFMT BSSZ 1 CATALOG ENTRY FORMAT CODE
| Line S01624 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03883 M02S01624.286l859 ---| CFTS BSSZ 1 CATALOG FILE TERMINATION STATUS (EOR)
| Line S01625 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03884 M02S01625.286l859 ---| CPCW BSSZ 1 PREVIOUS SECTOR TRAILER CONTROL WORD
| Line S01626 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03885 M02S01626.286l859 ---| CWNP BSSZ 1 UNPROCESSED CATALOG CONTROL WORD 03886 M01S02142.286l859 +++| CSBF BSSZ 100B CATALOG SECTOR BUFFER 03887 M01S01627.comcpfs +++|
| Line S01628 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03888 M02S01628.286l859 ---| CSCW BSSZ CBUFL/NWPR LIST OF *CIO* TRAILER CONTROL WORDS
| Line S01629 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03889 M02S01629.286l859 ---|
| Line S01630 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03890 M02S01630.286l859 ---| CBUF BSSZ CBUFL CATALOG BUFFER
| Line S01631 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03891 M02S01631.286l859 ---|
| Line S01632 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03892 M02S01632.286l859 ---| BCBUF BSSZ NWPR BAD CATALOG SECTOR BUFFER 03893 M01S02143.286l859 +++| CSLW CON 0 LWA+1 OF LAST ENTRY IN *CSBF* 03894 M01S02144.286l859 +++| CSTC CON 0 CATALOG SECTOR TRAILING CONTROL WORD 03895 M01S01633.comcpfs +++| SPACE 4,10
| Line S01634 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03896 M02S01634.cpfs2 ---|* MESSAGE DESCRIPTION STRINGS. 03897 M01S00022.cpfs2 +++|* ERROR MESSAGES. 03898 M01S01635.comcpfs +++| 03899 M01S01636.comcpfs +++|
| Line S01637 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03900 M02S01637.286l859 ---| MECR DATA C* ??????? - CATALOG READ ERROR*
| Line S02145 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03901 M02S02145.cpfs2 ---| ERCR DATA C* CATALOG READ ERROR*
| Line S02146 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | cpfs2 |
Seq # *Modification Id* Act ----------------------------+ 03902 M02S02146.cpfs2 ---| ERCB DATA C* CATALOG SECTOR BAD* 03903 M01S00023.cpfs2 +++| ERCR DATA C* CATALOG READ ERROR, UI=!!!!!!.* 03904 M01S00024.cpfs2 +++| ERCB DATA C* CATALOG SECTOR BAD, UI=!!!!!!.* 03905 M01S01638.comcpfs +++| SPACE 4,10
| Line S01639 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03906 M02S01639.286l859 ---| PF8$ IF DEF,PF8$
| Line S01640 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03907 M02S01640.286l859 ---| CCF SPACE 4,15
| Line S01641 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03908 M02S01641.286l859 ---|** CCF - CHECK CATALOG FORMAT.
| Line S01642 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03909 M02S01642.286l859 ---|*
| Line S01643 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03910 M02S01643.286l859 ---|* ENTRY (CFMT) .NE. 0 IF 8 WORD PFC FORMAT.
| Line S01644 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03911 M02S01644.286l859 ---|* (B3) = FWA OF ENTRIES IN SOURCE BUFFER.
| Line S01645 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03912 M02S01645.286l859 ---|* (B6) = LWA+1 OF ENTRIES IN SOURCE BUFFER.
| Line S01646 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03913 M02S01646.286l859 ---|*
| Line S01647 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03914 M02S01647.286l859 ---|* EXIT (B3) = FWA OF CONVERTED ENTRIES IN *CCBUF*.
| Line S01648 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03915 M02S01648.286l859 ---|* (B6) = LWA+1 OF CONVERTED ENTRIES IN *CCBUF*.
| Line S01649 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03916 M02S01649.286l859 ---|*
| Line S01650 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03917 M02S01650.286l859 ---|* USES X - 1, 4, 6.
| Line S01651 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03918 M02S01651.286l859 ---|* A - 1, 6.
| Line S01652 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03919 M02S01652.286l859 ---|* B - 3, 4, 5, 6, 7.
| Line S01653 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03920 M02S01653.286l859 ---|*
| Line S01654 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03921 M02S01654.286l859 ---|* CALLS CCE.
| Line S01655 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03922 M02S01655.286l859 ---|
| Line S01656 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03923 M02S01656.286l859 ---|
| Line S01657 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03924 M02S01657.286l859 ---| CCF SUBR ENTRY/EXIT
| Line S01658 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03925 M02S01658.286l859 ---| SA1 CFMT CHECK CATALOG ENTRY FORMAT
| Line S01659 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03926 M02S01659.286l859 ---| NZ X1,CCFX IF 16 WORD FORMAT
| Line S01660 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03927 M02S01660.286l859 ---|
| Line S01661 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03928 M02S01661.286l859 ---|* CONVERT CATALOG ENTRIES TO 16 WORD FORMAT.
| Line S01662 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03929 M02S01662.286l859 ---|
| Line S01663 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03930 M02S01663.286l859 ---| EQ B3,B6,CCFX IF NO CATALOG ENTRIES
| Line S01664 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03931 M02S01664.286l859 ---| SB7 CCBUF INITIALIZE CONVERSION BUFFER INDEX
| Line S01665 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03932 M02S01665.286l859 ---| CCF1 SB4 B7+ INITIALIZE BUFFER TRANSFER INDICES
| Line S01666 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03933 M02S01666.286l859 ---| SB5 B7+10B
| Line S01667 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03934 M02S01667.286l859 ---| CCF2 SA1 B3 TRANSFER TO CONVERSION BUFFER
| Line S01668 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03935 M02S01668.286l859 ---| BX6 X1
| Line S01669 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03936 M02S01669.286l859 ---| SA6 B4
| Line S01670 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03937 M02S01670.286l859 ---| SB3 B3+B1 INCREMENT TRANSFER INDICES
| Line S01671 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03938 M02S01671.286l859 ---| SB4 B4+B1
| Line S01672 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03939 M02S01672.286l859 ---| NE B4,B5,CCF2 IF TRANSFER NOT COMPLETE
| Line S01673 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03940 M02S01673.286l859 ---| SX4 B7
| Line S01674 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03941 M02S01674.286l859 ---| RJ CCE CONVERT CATALOG ENTRY TO 16 WORD FORMAT
| Line S01675 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03942 M02S01675.286l859 ---| SB7 B7+NWCE INCREMENT CONVERSION BUFFER INDEX
| Line S01676 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03943 M02S01676.286l859 ---| LT B3,B6,CCF1 IF SOURCE BUFFER NOT EXHAUSTED
| Line S01677 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03944 M02S01677.286l859 ---| SB3 CCBUF RESET INDICES TO CONVERSION BUFFER
| Line S01678 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03945 M02S01678.286l859 ---| SB6 B7+
| Line S01679 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03946 M02S01679.286l859 ---| EQ CCFX RETURN
| Line S01680 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03947 M02S01680.286l859 ---| SPACE 4,10
| Line S01681 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03948 M02S01681.286l859 ---| CCBUF BSSZ CCBUFL CONVERTED CATALOG BUFFER
| Line S01682 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03949 M02S01682.286l859 ---| PF8$ ENDIF
| Line S01683 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03950 M02S01683.286l859 ---| TITLE COMCPFS - *PFM* REQUEST FILE PROCESSSORS. 03951 M01S02147.286l859 +++| TITLE COMCPFS - *PFM* SPECIAL REQUEST ROUTINES. 03952 M01S01684.comcpfs +++| PFR SPACE 4,15 03953 M01S01685.comcpfs +++|** PFR - PROCESS *PFM* REQUESTS. 03954 M01S01686.comcpfs +++|* 03955 M01S01687.comcpfs +++|* ENTRY *PFMREQ* = *PFM* REQUEST FILE FET. 03956 M01S01688.comcpfs +++|* 03957 M01S01689.comcpfs +++|* EXIT *PFM* REQUESTS PROCESSED. 03958 M01S02148.286l859 +++|* (PPFC) = COUNT OF REQUESTS WITH NO ERROR. 03959 M01S02149.286l859 +++|* *PFMREQ* FILE RETURNED. 03960 M01S01690.comcpfs +++|* 03961 M01S01691.comcpfs +++|* USES X - 1, 2, 6. 03962 M01S01692.comcpfs +++|* A - 1, 2, 6. 03963 M01S01693.comcpfs +++|* B - 2. 03964 M01S01694.comcpfs +++|* 03965 M01S01695.comcpfs +++|* CALLS DFN. 03966 M01S01696.comcpfs +++|*
| Line S01697 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03967 M02S01697.286l859 ---|* MACROS DROPDS, READ, READW, REWIND, SETASA, WRITER. 03968 M01S02150.286l859 +++|* MACROS DROPDS, READ, READW, RETURN, REWIND, SETASA, WRITER. 03969 M01S01698.comcpfs +++| 03970 M01S01699.comcpfs +++| 03971 M01S02151.286l859 +++| PFR6 RETURN X2 RETURN REQUEST FILE 03972 M01S02152.286l859 +++| 03973 M01S01700.comcpfs +++| PFR SUBR ENTRY/EXIT 03974 M01S02153.286l859 +++| SA1 PFRI 03975 M01S02154.286l859 +++| ZR X1,PFRX IF NO REQUESTS 03976 M01S01701.comcpfs +++| WRITER PFMREQ FLUSH REQUEST FILE 03977 M01S01702.comcpfs +++| REWIND X2 03978 M01S01703.comcpfs +++| READ X2 03979 M01S01704.comcpfs +++| 03980 M01S01705.comcpfs +++|* READ NEXT REQUEST AND DISPLAY FILE NAME. 03981 M01S01706.comcpfs +++| 03982 M01S01707.comcpfs +++| PFR1 READW PFMREQ,PFRP,PFRPL READ *PFM* REQUEST
| Line S01708 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03983 M02S01708.286l859 ---| NZ X1,PFRX IF END OF REQUESTS 03984 M01S02155.286l859 +++| NZ X1,PFR6 IF END OF REQUESTS 03985 M01S01709.comcpfs +++| SA2 PFRI 03986 M01S01710.comcpfs +++| SA1 PFRF
| Line S01711 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03987 M02S01711.286l859 ---| SX2 X2 SET MESSAGE DESCRIPTION ADDRESS 03988 M01S02156.286l859 +++| SA2 X2 SET MESSAGE VERB 03989 M01S01712.comcpfs +++| RJ DFN DISPLAY FILE PROCESSING MESSAGE 03990 M01S01713.comcpfs +++| SA1 PFRI 03991 M01S01714.comcpfs +++| UX1 B2,X1 03992 M01S01715.comcpfs +++| SA2 PFRA+B2 GET PROCESSOR ADDRESS 03993 M01S01716.comcpfs +++| SB2 X2+ 03994 M01S01717.comcpfs +++| JP B2 PROCESS REQUEST 03995 M01S01718.comcpfs +++| 03996 M01S01719.comcpfs +++|* SET TAPE ALTERNATE STORAGE POINTERS. 03997 M01S01720.comcpfs +++| 03998 M01S01721.comcpfs +++| PFR2 SETASA PFMR 03999 M01S01722.comcpfs +++| EQ PFR5 CHECK ERROR STATUS 04000 M01S01723.comcpfs +++| 04001 M01S01724.comcpfs +++|* DROP DISK SPACE. 04002 M01S01725.comcpfs +++| 04003 M01S01726.comcpfs +++| PFR3 DROPDS PFMR 04004 M01S01727.comcpfs +++| EQ PFR5 CHECK ERROR STATUS 04005 M01S01728.comcpfs +++| 04006 M01S01729.comcpfs +++|* PURGE FILE. 04007 M01S01730.comcpfs +++| 04008 M01S01731.comcpfs +++| PFR4 PURGE PFMR 04009 M01S01732.comcpfs +++|* EQ PFR5 CHECK ERROR STATUS 04010 M01S01733.comcpfs +++| 04011 M01S01734.comcpfs +++|* CHECK ERROR STATUS. 04012 M01S01735.comcpfs +++|
| Line S01736 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04013 M02S01736.286l859 ---| PFR5 SA1 X2 GET ERROR CODE FROM FET
| Line S01737 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04014 M02S01737.286l859 ---| SA2 PFRI GET ACCUMULATORS ADDRESS 04015 M01S02157.286l859 +++| PFR5 SA1 X2+ GET ERROR CODE FROM FET 04016 M01S01738.comcpfs +++| SX1 X1
| Line S01739 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04017 M02S01739.286l859 ---| LX2 -18 04018 M01S01740.comcpfs +++| AX1 10 04019 M01S01741.comcpfs +++| NZ X1,PFR1 IF *PFM* ERROR
| Line S01742 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04020 M02S01742.286l859 ---| SA2 X2 COUNT FILE PROCESSED
| Line S01743 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04021 M02S01743.286l859 ---| SX6 X2+B1
| Line S01744 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04022 M02S01744.286l859 ---| SA6 A2+ 04023 M01S02158.286l859 +++| SA1 PPFC COUNT FILE PROCESSED 04024 M01S02159.286l859 +++| SX6 B1 04025 M01S02160.286l859 +++| IX6 X1+X6 04026 M01S02161.286l859 +++| SA6 PPFC 04027 M01S01745.comcpfs +++| EQ PFR1 PROCESS NEXT FILE 04028 M01S01746.comcpfs +++| 04029 M01S01747.comcpfs +++| 04030 M01S01748.comcpfs +++| PFRA BSS 0 TABLE OF *PFM* REQUEST PROCESSORS 04031 M01S01749.comcpfs +++| LOC 0 04032 M01S01750.comcpfs +++| SAPP CON PFR2 *SETASA* PROCESSOR 04033 M01S01751.comcpfs +++| DDPP CON PFR3 *DROPDS* PROCESSOR 04034 M01S01752.comcpfs +++| PRPP CON PFR4 *PURGE* PROCESSOR 04035 M01S01753.comcpfs +++| MXPP BSS 0 MAXIMUM *PFM* PROCESSOR + 1 04036 M01S01754.comcpfs +++| LOC *O 04037 M01S02162.286l859 +++| SCA SPACE 4,10 04038 M01S02163.286l859 +++|** SCA - SET CATALOG DISK ADDRESS. 04039 M01S02164.286l859 +++|* 04040 M01S02165.286l859 +++|* ENTRY (A0) = ADDRESS OF CATALOG ENTRY IN *CSBF*. 04041 M01S02166.286l859 +++|* (CSTC) = CATALOG SECTOR TRAILING CONTROL WORD. 04042 M01S02167.286l859 +++|* 04043 M01S02168.286l859 +++|* EXIT (A0) = CATALOG ENTRY ADDRESS. 04044 M01S02169.286l859 +++|* (CADA) = DISK ADRESS OF CATALOG ENTRY FORMATTED FOR 04045 M01S02170.286l859 +++|* *PFM* SPECIAL REQUEST BLOCK. 04046 M01S02171.286l859 +++|* 04047 M01S02172.286l859 +++|* USES X - 1, 2, 6. 04048 M01S02173.286l859 +++|* A - 1, 2. 04049 M01S02174.286l859 +++| 04050 M01S02175.286l859 +++| 04051 M01S02176.286l859 +++| SCA SUBR ENTRY/EXIT 04052 M01S02177.286l859 +++| SA1 CSTC 04053 M01S02178.286l859 +++| SA2 CPAR+/COMSPFS/CPDN 04054 M01S02179.286l859 +++| SX6 A0-CSBF OFFSET IN BUFFER 04055 M01S02180.286l859 +++| MX7 -24 04056 M01S02181.286l859 +++| AX6 4 INDEX IN SECTOR 04057 M01S02182.286l859 +++| ERRNZ NWCE-20B 04058 M01S02183.286l859 +++| LX6 30 04059 M01S02184.286l859 +++| BX1 -X7*X1 CATALOG TRACK AND SECTOR 04060 M01S02185.286l859 +++| LX2 24 04061 M01S02186.286l859 +++| BX6 X6+X1 MERGE INDEX AND TRACK/SECTOR 04062 M01S02187.286l859 +++| BX6 X6+X2 MERGE MASTER DEVICE NUMBER 04063 M01S02188.286l859 +++| SA6 CADA SET CATALOG DISK ADDRESS 04064 M01S02189.286l859 +++| EQ SCAX RETURN 04065 M01S01755.comcpfs +++| SPR SPACE 4,15 04066 M01S01756.comcpfs +++|** SPR - SET *PFM* REQUEST PARAMETERS. 04067 M01S01757.comcpfs +++|*
| Line S01758 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04068 M02S01758.286l859 ---|* ENTRY (A0) = ADDRESS OF *PFM* SPECIAL REQUEST BLOCK.
| Line S01759 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04069 M02S01759.286l859 ---|* (X4) = INDEX OF CATALOG ENTRY IN *CBUF*. 04070 M01S02190.286l859 +++|* ENTRY (B2) = *PFM* SPECIAL REQUEST BLOCK ADDRESS. 04071 M01S02191.286l859 +++|* (A0) = CATALOG ENTRY ADDRESS. 04072 M01S01760.comcpfs +++|* (X7) = SPECIAL REQUEST BLOCK WORD 1.
| Line S01761 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04073 M02S01761.286l859 ---|* (CPAR+/COMSPFS/CPDN) = MASTER DEVICE NUMBER. 04074 M01S02192.286l859 +++|* (CADA) = CATALOG DISK ADDRESS (REQUEST BLOCK WORD 0). 04075 M01S01762.comcpfs +++|* (FMPN) = FAMILY OR PACK NAME. 04076 M01S01763.comcpfs +++|*
| Line S01764 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04077 M02S01764.286l859 ---|* EXIT (A1) = ADDRESS OF CATALOG ENTRY IN *CBUF*. 04078 M01S02193.286l859 +++|* EXIT (A0) = CATALOG ENTRY ADDRESS. 04079 M01S01765.comcpfs +++|* *PFM* SPECIAL REQUEST BLOCK BUILT. 04080 M01S01766.comcpfs +++|*
| Line S01767 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04081 M02S01767.286l859 ---|* USES X - 0, 1, 2, 3, 6, 7.
| Line S01768 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 274l797 |
M03 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04082 M03S01768.286l859 ---|* A - 2, 3, 6, 7.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04083 M02S00001.286l859 ---|* A - 1, 2, 3, 6, 7. 04084 M01S02194.286l859 +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 04085 M01S02195.286l859 +++|* A - 1, 2, 3, 4, 6, 7. 04086 M01S01769.comcpfs +++| 04087 M01S01770.comcpfs +++| 04088 M01S01771.comcpfs +++| SPR SUBR ENTRY/EXIT
| Line S01772 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04089 M02S01772.286l859 ---| SA7 A0+1 SET SPECIAL REQUEST BLOCK WORD 1
| Line S01773 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04090 M02S01773.286l859 ---| BX1 X4
| Line S01774 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04091 M02S01774.286l859 ---| LX1 4 CATALOG ENTRY OFFSET
| Line S01775 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04092 M02S01775.286l859 ---| SA1 X1+CBUF GET FILE NAME AND USER INDEX
| Line S01776 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04093 M02S01776.286l859 ---| SA2 A1+FCCD GET CREATION DATE AND TIME 04094 M01S02196.286l859 +++| SA4 CADA GET CATALOG DISK ADDRESS 04095 M01S02197.286l859 +++| SA1 A0+FCUI GET FILE NAME AND USER INDEX 04096 M01S02198.286l859 +++| SA2 A0+FCCD GET CREATION DATE AND TIME 04097 M01S01777.comcpfs +++| SA3 FMPN GET FAMILY OR PACK NAME 04098 M01S02199.286l859 +++| BX6 X4 04099 M01S02200.286l859 +++| SA7 B2+B1 SET SPECIAL REQUEST BLOCK WORD 1 04100 M01S02201.286l859 +++| SA6 B2+ SET CATALOG DISK ADDRESS
| Line S01778 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04101 M02S01778.274l797 ---| MX6 -36 04102 M01S00002.274l797 +++| MX0 -36 04103 M01S01779.comcpfs +++| MX7 -18 04104 M01S01780.comcpfs +++| BX1 -X7*X1 ISOLATE USER INDEX
| Line S01781 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 04105 M02S01781.274l797 ---| BX6 -X6*X2 04106 M01S00003.274l797 +++| BX6 -X0*X2
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04107 M02S00004.286l859 ---| SA2 A0+2 GET OPTICAL DISK ADDRESS 04108 M01S02202.286l859 +++| SA2 B2+2 GET OPTICAL DISK ADDRESS 04109 M01S00005.274l797 +++| BX2 X0*X2 04110 M01S00006.274l797 +++| BX6 X2+X6 MERGE ADDRESS AND CREATION DATE/TIME
| Line S01782 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04111 M02S01782.286l859 ---| SA6 A0+2 SET CREATION DATE AND TIME 04112 M01S02203.286l859 +++| SA6 A2 SET CREATION DATE AND TIME 04113 M01S01783.comcpfs +++| BX7 X3+X1 MERGE FAMILY/PACK NAME AND USER INDEX
| Line S01784 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04114 M02S01784.286l859 ---| BX1 X4
| Line S01785 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04115 M02S01785.286l859 ---| SA7 A6+B1 SET FAMILY/PACK NAME AND USER INDEX
| Line S01786 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04116 M02S01786.286l859 ---| AX1 2-0 SECTOR NUMBER IN *CBUF*
| Line S01787 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04117 M02S01787.286l859 ---| SA2 X1+CSCW GET *CIO* TRAILER CONTROL WORD
| Line S01788 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04118 M02S01788.286l859 ---| SA3 CPAR+/COMSPFS/CPDN GET MASTER DEVICE NUMBER
| Line S01789 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04119 M02S01789.286l859 ---| MX0 -24
| Line S01790 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04120 M02S01790.286l859 ---| BX2 -X0*X2 ISOLATE TRACK AND SECTOR
| Line S01791 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04121 M02S01791.286l859 ---| LX1 2 DETERMINE CATALOG ENTRY ORDINAL
| Line S01792 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04122 M02S01792.286l859 ---| IX1 X4-X1
| Line S01793 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04123 M02S01793.286l859 ---| LX1 30
| Line S01794 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04124 M02S01794.286l859 ---| LX3 24
| Line S01795 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04125 M02S01795.286l859 ---| BX6 X1+X2 MERGE ORDINAL
| Line S01796 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04126 M02S01796.286l859 ---| BX6 X6+X3 MERGE DEVICE NUMBER
| Line S01797 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04127 M02S01797.286l859 ---| SA6 A0 SET PFC POINTERS 04128 M01S02204.286l859 +++| SA7 B2+3 SET FAMILY/PACK NAME AND USER INDEX 04129 M01S01798.comcpfs +++| EQ SPRX RETURN 04130 M01S01799.comcpfs +++| WPR SPACE 4,15 04131 M01S01800.comcpfs +++|** WPR - WRITE *PFM* REQUEST PARAMETERS TO *PFMREQ* FILE. 04132 M01S01801.comcpfs +++|*
| Line S01802 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04133 M02S01802.286l859 ---|* ENTRY (CBIN) = INDEX OF CATALOG ENTRY IN *CBUF*. 04134 M01S02205.286l859 +++|* ENTRY (A0) = CATALOG ENTRY ADDRESS. 04135 M01S01803.comcpfs +++|* (X7) = SPECIAL REQUEST BLOCK WORD 1. 04136 M01S02206.286l859 +++|* (CADA) = CATALOG ENTRY DISK ADDRESS PARAMETERS. 04137 M01S01804.comcpfs +++|* (PFRI) = PROCESSOR INDEX, FILE COUNTS POINTER, AND 04138 M01S01805.comcpfs +++|* MESSAGE POINTER (SEE *PFRP* DOCUMENTATION). 04139 M01S01806.comcpfs +++|*
| Line S01807 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04140 M02S01807.286l859 ---|* EXIT *PFM* REQUEST PARAMETERS WRITTEN TO REQUEST FILE. 04141 M01S02207.286l859 +++|* EXIT (A0) = CATALOG ENTRY ADDRESS. 04142 M01S02208.286l859 +++|* *PFM* REQUEST PARAMETERS WRITTEN TO REQUEST FILE. 04143 M01S01808.comcpfs +++|* 04144 M01S01809.comcpfs +++|* CALLS SPR. 04145 M01S01810.comcpfs +++|* 04146 M01S01811.comcpfs +++|* MACROS WRITEW. 04147 M01S01812.comcpfs +++| 04148 M01S01813.comcpfs +++| 04149 M01S01814.comcpfs +++| WPR SUBR ENTRY/EXIT
| Line S01815 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04150 M02S01815.286l859 ---| SA4 CBIN SET CATALOG ENTRY INDEX
| Line S01816 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04151 M02S01816.286l859 ---| SA0 PFRS SET SPECIAL REQUEST BLOCK ADDRESS 04152 M01S02209.286l859 +++| SB2 PFRS SET SPECIAL REQUEST BLOCK ADDRESS 04153 M01S01817.comcpfs +++| RJ SPR SET *PFM* REQUEST
| Line S01818 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04154 M02S01818.286l859 ---| SA1 A1 SET FILE NAME AND USER INDEX 04155 M01S02210.286l859 +++| SA1 A0+FCFN SET FILE NAME AND USER INDEX 04156 M01S01819.comcpfs +++| BX6 X1 04157 M01S01820.comcpfs +++| SA6 PFRF 04158 M01S01821.comcpfs +++| WRITEW PFMREQ,PFRP,PFRPL WRITE REQUEST FILE ENTRY 04159 M01S01822.comcpfs +++| EQ WPRX RETURN 04160 M01S02211.286l859 +++| SPACE 4,10 04161 M01S02212.286l859 +++|* GLOBAL DATA. 04162 M01S02213.286l859 +++| 04163 M01S02214.286l859 +++| 04164 M01S02215.286l859 +++| CADA CON 0 CATALOG DISK ADDRESS 04165 M01S01823.comcpfs +++| PFMR SPACE 4,10 04166 M01S01824.comcpfs +++|* PFMR - *PFM* REQUEST FET. 04167 M01S01825.comcpfs +++| 04168 M01S01826.comcpfs +++| 04169 M01S01827.comcpfs +++| PFMR FILEB PFRB,PFRBL,EPR,FET=16 04170 M01S01828.comcpfs +++| ORG PFMR+CFPW 04171 M01S01829.comcpfs +++| VFD 42/0,18/PFRE ERROR MESSAGE RETURN ADDRESS 04172 M01S01830.comcpfs +++| ORG PFMR+CFSR 04173 M01S01831.comcpfs +++| VFD 42/0,18/PFRS SPECIAL REQUEST BLOCK ADDRESS 04174 M01S01832.comcpfs +++| ORG PFMR+16 04175 M01S01833.comcpfs +++| PFRP SPACE 4,10 04176 M01S01834.comcpfs +++|* PFRP - *PFM* REQUEST PARAMETERS BLOCK. 04177 M01S01835.comcpfs +++| 04178 M01S01836.comcpfs +++| 04179 M01S01837.comcpfs +++| PFRP BSS 0 *PFM* REQUEST PARAMETERS
| Line S01838 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04180 M02S01838.286l859 ---| PFRI VFD 12/2000B 2000B + INDEX INTO *PFRA*
| Line S01839 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04181 M02S01839.286l859 ---| VFD 12/0
| Line S01840 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04182 M02S01840.286l859 ---| VFD 18/0 POINTER TO FILE COUNT ACCUMULATORS 04183 M01S02216.286l859 +++| PFRI VFD 12/0 2000B + INDEX INTO *PFRA* 04184 M01S02217.286l859 +++| VFD 30/0 04185 M01S01841.comcpfs +++| VFD 18/0 MESSAGE POINTER 04186 M01S01842.comcpfs +++| PFRF VFD 42/0 FILE NAME 04187 M01S01843.comcpfs +++| VFD 18/0 USER INDEX 04188 M01S01844.comcpfs +++| PFRS BSSZ 4 *PFM* SPECIAL REQUEST BLOCK 04189 M01S01845.comcpfs +++| PFRPL EQU *-PFRP REQUEST BLOCK LENGTH 04190 M01S01846.comcpfs +++| 04191 M01S01847.comcpfs +++| PFRE BSSZ 3 *PFM* ERROR MESSAGE 04192 M01S01848.comcpfs +++| TITLE COMCPFS - *PFDUMP*/*PFDM* GENERAL SUBROUTINES. 04193 M01S01849.comcpfs +++| CAC SPACE 4,15 04194 M01S01850.comcpfs +++|** CAC - CLEAR PF ACTIVITY COUNT. 04195 M01S01851.comcpfs +++|* 04196 M01S01852.comcpfs +++|* ENTRY (ACFL) = 1 IF ACTIVITY COUNT SET. 04197 M01S01853.comcpfs +++|* = 0 IF ACTIVITY COUNT ALREADY CLEAR. 04198 M01S01854.comcpfs +++|* (MAEQ) = MASTER DEVICE EST ORDINAL. 04199 M01S01855.comcpfs +++|* 04200 M01S01856.comcpfs +++|* EXIT (ACFL) = 0. 04201 M01S01857.comcpfs +++|* *PFU* CALLED TO CLEAR PF ACTIVITY COUNT IF NOT ALREADY 04202 M01S01858.comcpfs +++|* CLEAR. 04203 M01S01859.comcpfs +++|* 04204 M01S01860.comcpfs +++|* USES X - 1, 3, 6. 04205 M01S01861.comcpfs +++|* A - 1, 3, 6. 04206 M01S01862.comcpfs +++|* 04207 M01S01863.comcpfs +++|* MACROS CALLPFU, MESSAGE, MOVE. 04208 M01S01864.comcpfs +++| 04209 M01S01865.comcpfs +++| 04210 M01S01866.comcpfs +++| CAC SUBR ENTRY/EXIT 04211 M01S01867.comcpfs +++| SA1 ACFL CHECK ACTIVITY COUNT FLAG 04212 M01S01868.comcpfs +++| SX6 ACFL SET ACTIVITY COUNT FLAG ADDRESS 04213 M01S01869.comcpfs +++| ZR X1,CACX IF ACTIVITY COUNT ALREADY CLEAR 04214 M01S01870.comcpfs +++| SA1 MAEQ SET MASTER DEVICE EST ORDINAL 04215 M01S01871.comcpfs +++| LX1 -12 04216 M01S01872.comcpfs +++| BX6 X1+X6 MERGE WITH FET ADDRESS 04217 M01S01873.comcpfs +++| SA6 ACFT+FTPM 04218 M01S01874.comcpfs +++| SA3 IDSA+/COMSPFS/ADM1 *K* DISPLAY MESSAGE ADDRESS 04219 M01S01875.comcpfs +++| MOVE 4,MECP,X3 *CLEARING PF ACTIVITY COUNT.* 04220 M01S01876.comcpfs +++| MESSAGE MECP,2,R 04221 M01S01877.comcpfs +++| CALLPFU ACFT,CTDA,R DECREMENT PF ACTIVITY COUNT 04222 M01S01878.comcpfs +++| SA3 IDSA+/COMSPFS/ADM1 *K* DISPLAY MESSAGE ADDRESS 04223 M01S01879.comcpfs +++| MOVE 4,MENL,X3 CLEAR MESSAGE 04224 M01S01880.comcpfs +++| MESSAGE (=C**),2,R 04225 M01S01881.comcpfs +++| EQ CACX RETURN 04226 M01S01882.comcpfs +++| CBR SPACE 4,20 04227 M01S01883.comcpfs +++|** CBR - CHECK BACKUP REQUIREMENT. 04228 M01S01884.comcpfs +++|*
| Line S01885 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04229 M02S01885.286l859 ---|* ENTRY (B3) = CATALOG ENTRY ADDRESS. 04230 M01S02218.286l859 +++|* ENTRY (A0) = CATALOG ENTRY ADDRESS. 04231 M01S01886.comcpfs +++|* 04232 M01S01887.comcpfs +++|* EXIT (X6) = EFFECTIVE BACKUP REQUIREMENT. 04233 M01S01888.comcpfs +++|* (X7) = 0 IF BACKUP REQUIREMENT NOT MET BY ALTERNATE 04234 M01S01889.comcpfs +++|* STORAGE COPIES. 04235 M01S01890.comcpfs +++|* (X7) = 1 IF BACKUP REQUIREMENT MET BY ALTERNATE 04236 M01S01891.comcpfs +++|* STORAGE COPIES. 04237 M01S01892.comcpfs +++|* (B2) = NUMBER OF COPIES OF FILE DATA ON ALTERNATE 04238 M01S01893.comcpfs +++|* STORAGE MEDIA.
| Line S01894 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04239 M02S01894.286l859 ---|* (B4) = NUMBER OF ALTERNATE STORAGE COPIES WITHOUT
| Line S01895 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04240 M02S01895.286l859 ---|* ERRORS. 04241 M01S02219.286l859 +++|* (B3) .NE. 0 IF FILE RESIDES ON TAPE ALTERNATE STORAGE. 04242 M01S02220.286l859 +++|* (B3) = 0 IF FILE DOES NOT RESIDE ON TAPE ALTERNATE 04243 M01S02221.286l859 +++|* STORAGE. 04244 M01S01896.comcpfs +++|*
| Line S01897 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04245 M02S01897.286l859 ---|* USES X - 0, 1, 2, 3, 6, 7. 04246 M01S02222.286l859 +++|* USES X - 1, 2, 3, 6, 7. 04247 M01S01898.comcpfs +++|* A - 1, 2.
| Line S01899 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04248 M02S01899.286l859 ---|* B - 2, 4. 04249 M01S02223.286l859 +++|* B - 2, 3. 04250 M01S01900.comcpfs +++| 04251 M01S01901.comcpfs +++| 04252 M01S01902.comcpfs +++| CBR SUBR ENTRY/EXIT 04253 M01S01903.comcpfs +++| 04254 M01S01904.comcpfs +++|* DETERMINE NUMBER OF ALTERNATE STORAGE COPIES. 04255 M01S01905.comcpfs +++|
| Line S01906 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04256 M02S01906.286l859 ---| SA2 B3+FCTV GET TAPE ALTERNATE STORAGE POINTERS
| Line S01907 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04257 M02S01907.286l859 ---| SA1 B3+FCAA GET CARTRIDGE ALTERNATE STORAGE POINTERS
| Line S01908 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04258 M02S01908.286l859 ---| SB2 B0
| Line S01909 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04259 M02S01909.286l859 ---| SB4 B0 04260 M01S02224.286l859 +++| SA2 A0+FCTV GET TAPE ALTERNATE STORAGE POINTERS 04261 M01S02225.286l859 +++| SA1 A0+FCAA GET CARTRIDGE ALTERNATE STORAGE POINTERS 04262 M01S02226.286l859 +++| SB2 B0 SET NO ALTERNATE STORAGE COPIES 04263 M01S02227.286l859 +++| SB3 B0 SET NOT TAPE RESIDENT 04264 M01S01910.comcpfs +++| MX7 -36 04265 M01S01911.comcpfs +++| BX6 -X7*X2
| Line S01912 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04266 M02S01912.286l859 ---| BX7 -X7*X1 04267 M01S01913.comcpfs +++| ZR X6,CBR2 IF NO TAPE ALTERNATE STORAGE COPIES
| Line S01914 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04268 M02S01914.286l859 ---| LX2 -48
| Line S01915 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04269 M02S01915.286l859 ---| SX3 24B
| Line S01916 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04270 M02S01916.286l859 ---| SX6 B1+B1
| Line S01917 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04271 M02S01917.286l859 ---| BX0 X3*X2
| Line S01918 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04272 M02S01918.286l859 ---| BX6 X6*X2 COUNT SECONDARY VSN COPY
| Line S01919 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04273 M02S01919.286l859 ---| NZ X0,CBR1 IF PRIMARY VSN ERROR FLAGS SET
| Line S01920 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04274 M02S01920.286l859 ---| SB4 B4+B1 COUNT PRIMARY VSN ACCESSIBLE
| Line S01921 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04275 M02S01921.286l859 ---| CBR1 SB2 X6+B1 NUMBER OF TAPE ALTERNATE STORAGE COPIES
| Line S01922 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04276 M02S01922.286l859 ---| LX3 2
| Line S01923 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04277 M02S01923.286l859 ---| ZR X6,CBR2 IF NO SECONDARY VSN
| Line S01924 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04278 M02S01924.286l859 ---| BX3 X3*X2
| Line S01925 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04279 M02S01925.286l859 ---| NZ X3,CBR2 IF SECONDARY VSN ERROR FLAGS SET
| Line S01926 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04280 M02S01926.286l859 ---| SB4 B4+B1 COUNT SECONDARY VSN ACCESSIBLE
| Line S01927 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04281 M02S01927.286l859 ---| CBR2 ZR X7,CBR3 IF NO CARTRIDGE ALTERNATE STORAGE COPY
| Line S01928 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04282 M02S01928.286l859 ---| SX3 23B 04283 M01S02228.286l859 +++| SX6 B1 04284 M01S02229.286l859 +++| LX2 0-49 04285 M01S02230.286l859 +++| SB3 B1 INDICATE TAPE RESIDENT 04286 M01S02231.286l859 +++| BX6 X6*X2 SECONDARY VSN FLAG 04287 M01S02232.286l859 +++| SB2 X6+1 NUMBER OF TAPE ALTERNATE STORAGE COPIES 04288 M01S02233.286l859 +++| CBR2 BX7 -X7*X1 04289 M01S02234.286l859 +++| ZR X7,CBR3 IF NO CARTRIDGE ALTERNATE STORAGE COPY 04290 M01S01929.comcpfs +++| LX1 59-48 04291 M01S01930.comcpfs +++| NG X1,CBR3 IF CARTRIDGE COPY IS OBSOLETE
| Line S01931 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04292 M02S01931.286l859 ---| BX3 X3*X1
| Line S01932 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04293 M02S01932.286l859 ---| SB2 B2+B1 COUNT CARTRIDGE COPY
| Line S01933 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04294 M02S01933.286l859 ---| NZ X3,CBR3 IF ERROR FLAGS SET
| Line S01934 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04295 M02S01934.286l859 ---| SB4 B4+B1 COUNT CARTRIDGE COPY ACCESSIBLE 04296 M01S02235.286l859 +++| SB2 B2+1 COUNT CARTRIDGE COPY 04297 M01S01935.comcpfs +++| 04298 M01S01936.comcpfs +++|* DETERMINE BACKUP REQUIREMENT. 04299 M01S01937.comcpfs +++|
| Line S01938 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04300 M02S01938.286l859 ---| CBR3 SA1 B3+FCBR GET BACKUP REQUIREMENT CODE 04301 M01S02236.286l859 +++| CBR3 SA1 A0+FCBR GET BACKUP REQUIREMENT CODE 04302 M01S01939.comcpfs +++| SA2 CPAR+/COMSPFS/CPOP 04303 M01S01940.comcpfs +++| SX6 BRAL SET BACKUP REQUIREMENT = YES 04304 M01S01941.comcpfs +++| MX3 -3 04305 M01S01942.comcpfs +++| LX1 -54 04306 M01S01943.comcpfs +++| LX2 59-45 04307 M01S01944.comcpfs +++| BX3 -X3*X1 04308 M01S01945.comcpfs +++| SX7 B0+ SET NOT BACKED UP ON ALTERNATE STORAGE 04309 M01S01946.comcpfs +++| NG X2,CBR4 IF *OP=Y* SELECTED 04310 M01S01947.comcpfs +++| SX6 X3+ SET BACKUP REQUIREMENT FROM PFC ENTRY 04311 M01S01948.comcpfs +++| 04312 M01S01949.comcpfs +++|* DETERMINE IF BACKUP REQUIREMENT IS MET. 04313 M01S01950.comcpfs +++|* *BR=Y* REQUIRES TWO ALTERNATE STORAGE COPIES. 04314 M01S01951.comcpfs +++|* *BR=MD* REQUIRES ONE ALTERNATE STORAGE COPY. 04315 M01S01952.comcpfs +++|* *BR=N* IS TREATED THE SAME AS *BR=MD* FOR THIS TEST. 04316 M01S01953.comcpfs +++| 04317 M01S01954.comcpfs +++| CBR4 ZR B2,CBRX IF NO ALTERNATE STORAGE COPIES 04318 M01S01955.comcpfs +++| SX1 X6-BRAL 04319 M01S01956.comcpfs +++| GT B2,B1,CBR5 IF MORE THAN ONE ALTERNATE STORAGE COPY 04320 M01S01957.comcpfs +++| ZR X1,CBRX IF BACKUP REQUIREMENT = YES 04321 M01S01958.comcpfs +++| CBR5 SX7 1 SET FILE BACKED UP ON ALTERNATE STORAGE 04322 M01S01959.comcpfs +++| EQ CBRX RETURN
| Line S01960 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04323 M02S01960.286l859 ---| CDS SPACE 4,20 04324 M01S02237.286l859 +++| CDS SPACE 4,10 04325 M01S01961.comcpfs +++|** CDS - CHECK DEVICE STATUS. 04326 M01S01962.comcpfs +++|*
| Line S01963 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04327 M02S01963.286l859 ---|* ENTRY (X0) = 42/,18/CATALOG ADDRESS.
| Line S01964 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04328 M02S01964.286l859 ---|* (X1) = DIRECT ACCESS FILE RESIDENCY DEVICE. 04329 M01S02238.286l859 +++|* ENTRY (X1) = DEVICE NUMBER. 04330 M01S01965.comcpfs +++|*
| Line S01966 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04331 M02S01966.286l859 ---|* EXIT (X6) = 0 IF DEVICE FOUND.
| Line S01967 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04332 M02S01967.286l859 ---|* = NON-ZERO IF DEVICE NOT FOUND.
| Line S01968 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04333 M02S01968.286l859 ---|* (X7) = EST ORDINAL.
| Line S01969 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04334 M02S01969.286l859 ---|* MESSAGE ISSUED IF RESIDENCY DEVICE NOT FOUND. 04335 M01S02239.286l859 +++|* EXIT (X6) = EST ORDINAL IF DEVICE FOUND. 04336 M01S02240.286l859 +++|* (X6) = 0 IF DEVICE NOT FOUND. 04337 M01S01970.comcpfs +++|*
| Line S01971 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04338 M02S01971.286l859 ---|* USES X - 2, 3, 6, 7.
| Line S01972 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04339 M02S01972.286l859 ---|* A - 2, 6, 7.
| Line S01973 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04340 M02S01973.286l859 ---|* B - 2, 3. 04341 M01S02241.286l859 +++|* USES X - 2, 6. 04342 M01S02242.286l859 +++|* A - 2. 04343 M01S02243.286l859 +++| 04344 M01S02244.286l859 +++| 04345 M01S02245.286l859 +++| CDS2 SX6 B0+ SET DEVICE NOT FOUND 04346 M01S02246.286l859 +++| 04347 M01S02247.286l859 +++| CDS SUBR ENTRY/EXIT 04348 M01S02248.286l859 +++| SA2 MSTT-2 SET MASS STORAGE TABLE ADDRESS 04349 M01S02249.286l859 +++| CDS1 SA2 A2+2 GET MASS STORAGE TABLE ENTRY 04350 M01S02250.286l859 +++| MX6 -6 04351 M01S02251.286l859 +++| BX6 -X6*X2 DEVICE NUMBER 04352 M01S02252.286l859 +++| ZR X2,CDS2 IF END OF MASS STORAGE TABLE 04353 M01S02253.286l859 +++| IX6 X1-X6 04354 M01S02254.286l859 +++| LX2 -6 04355 M01S02255.286l859 +++| NZ X6,CDS1 IF NOT CORRECT DEVICE 04356 M01S02256.286l859 +++| MX6 -9 04357 M01S02257.286l859 +++| BX6 -X6*X2 SET EST ORDINAL 04358 M01S02258.286l859 +++| EQ CDSX RETURN 04359 M01S02259.286l859 +++| OCF SPACE 4,10 04360 M01S02260.286l859 +++|** OCF - OPEN CATALOG FILE. 04361 M01S01974.comcpfs +++|*
| Line S01975 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04362 M02S01975.286l859 ---|* CALLS SEM. 04363 M01S02261.286l859 +++|* EXIT NEW CATALOG FILE OPENED. 04364 M01S01976.comcpfs +++|*
| Line S01977 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04365 M02S01977.286l859 ---|* MACROS EDITS. 04366 M01S02262.286l859 +++|* USES X - 1, 2, 6, 7. 04367 M01S02263.286l859 +++|* A - 1, 6. 04368 M01S02264.286l859 +++|* 04369 M01S02265.286l859 +++|* MACROS CALLPFU. 04370 M01S01978.comcpfs +++| 04371 M01S01979.comcpfs +++|
| Line S01980 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04372 M02S01980.286l859 ---|* SET DIRECT ACCESS FILE EQUIPMENT. 04373 M01S02266.286l859 +++| OCF SUBR ENTRY/EXIT 04374 M01S02267.286l859 +++| SX6 PDWD SET DEVICE OR PACKNAME POINTER 04375 M01S02268.286l859 +++| SX7 PDUI SET USER INDEX POINTER 04376 M01S02269.286l859 +++| LX6 18 04377 M01S02270.286l859 +++| BX6 X6+X7 04378 M01S02271.286l859 +++| SA6 CATS+FTPM SET *PFU* PARAMETER WORD 04379 M01S02272.286l859 +++| CALLPFU CATS,CTCT,R GET CATALOG TRACK PARAMETERS 04380 M01S02273.286l859 +++| SA1 CATS+FTPM 04381 M01S02274.286l859 +++| SX2 5 SET INITIAL FILE STATUS 04382 M01S02275.286l859 +++| MX6 -24 04383 M01S02276.286l859 +++| BX1 -X6*X1 SET EQ AND FIRST TRACK 04384 M01S02277.286l859 +++| MX6 -12 04385 M01S02278.286l859 +++| BX6 -X6*X1 SET CURRENT TRACK 04386 M01S02279.286l859 +++| LX1 36 04387 M01S02280.286l859 +++| BX2 X2+X1 BUILD CATALOG TRACK FST ENTRY 04388 M01S02281.286l859 +++| LX6 24 04389 M01S02282.286l859 +++| BX6 X2+X6 04390 M01S02283.286l859 +++| SA6 A1 04391 M01S02284.286l859 +++| CALLPFU CATS,CTOL,R OPEN FILE 04392 M01S02285.286l859 +++| EQ OCFX RETURN 04393 M01S02286.286l859 +++| PCF SPACE 4,20 04394 M01S02287.286l859 +++|** PCF - POSITION CATALOG FILE. 04395 M01S02288.286l859 +++|* 04396 M01S02289.286l859 +++|* ENTRY (X5) = NEW CATALOG TRACK IF .GE. 0. 04397 M01S02290.286l859 +++|* (X5) = -1 IF TO CLEAR CATALOG TRACK STATUS. 04398 M01S02291.286l859 +++|* (CTRK) = OLD CATALOG TRACK IF .GE. 0. 04399 M01S02292.286l859 +++|* (CTRK) = -1 IF NO OLD CATALOG TRACK. 04400 M01S02293.286l859 +++|* OLD CATALOG TRACK INTERLOCKED IF CTRK .GE. 0. 04401 M01S02294.286l859 +++|* 04402 M01S02295.286l859 +++|* EXIT (X5) = NEW CATALOG TRACK IF .GE. 0. 04403 M01S02296.286l859 +++|* (X5) = -1 IF CATALOG TRACK STATUS CLEARED. 04404 M01S02297.286l859 +++|* (CTRK) = NEW CATALOG TRACK IF .GE. 0. 04405 M01S02298.286l859 +++|* (CTRK) = -1 IF CATALOG TRACK STATUS CLEARED. 04406 M01S02299.286l859 +++|* NEW CATALOG TRACK INTERLOCKED. 04407 M01S02300.286l859 +++|* OLD CATALOG TRACK INTERLOCK CLEARED. 04408 M01S02301.286l859 +++|* 04409 M01S02302.286l859 +++|* USES X - 0, 1, 2, 6, 7. 04410 M01S02303.286l859 +++|* A - 1, 2, 6, 7. 04411 M01S02304.286l859 +++|* 04412 M01S02305.286l859 +++|* MACROS CALLPFU, PCINT. 04413 M01S01981.comcpfs +++|
| Line S01982 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04414 M02S01982.286l859 ---| CDS2 LX2 -6 SET DIRECT ACCESS FILE EQUIPMENT
| Line S01983 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04415 M02S01983.286l859 ---| MX7 -9
| Line S01984 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04416 M02S01984.286l859 ---| BX7 -X7*X2 04417 M01S01985.comcpfs +++|
| Line S01986 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04418 M02S01986.286l859 ---| CDS SUBR ENTRY/EXIT
| Line S01987 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04419 M02S01987.286l859 ---| SB2 MSTT SET MASS STORAGE TABLE ADDRESS
| Line S01988 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04420 M02S01988.286l859 ---| MX7 -6
| Line S01989 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04421 M02S01989.286l859 ---| SB3 B1+B1
| Line S01990 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04422 M02S01990.286l859 ---| CDS1 SA2 B2 GET MASS STORAGE TABLE ENTRY
| Line S01991 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04423 M02S01991.286l859 ---| BX3 -X7*X2 COMPARE DEVICE NUMBERS
| Line S01992 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04424 M02S01992.286l859 ---| IX6 X1-X3
| Line S01993 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04425 M02S01993.286l859 ---| SB2 B2+B3 INCREMENT MASS STORAGE TABLE ADDRESS
| Line S01994 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04426 M02S01994.286l859 ---| ZR X6,CDS2 IF CORRECT DEVICE
| Line S01995 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04427 M02S01995.286l859 ---| NZ X2,CDS1 IF NOT END OF MASS STORAGE TABLE
| Line S01996 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04428 M02S01996.286l859 ---| SA2 X0 SET FILE NAME
| Line S01997 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04429 M02S01997.286l859 ---| BX6 X1 SET DEVICE NUMBER
| Line S01998 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04430 M02S01998.286l859 ---| MX3 42
| Line S01999 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04431 M02S01999.286l859 ---| BX7 X3*X2
| Line S02000 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04432 M02S02000.286l859 ---| SA6 MPDN
| Line S02001 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04433 M02S02001.286l859 ---| SA7 MPFN
| Line S02002 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04434 M02S02002.286l859 ---| BX6 -X3*X2 SET USER INDEX
| Line S02003 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04435 M02S02003.286l859 ---| SA6 MPUI
| Line S02004 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04436 M02S02004.286l859 ---| BX7 X0 SAVE (X0)
| Line S02005 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04437 M02S02005.286l859 ---| SA7 CDSA
| Line S02006 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04438 M02S02006.286l859 ---| EDITS MSMD,MEDN BUILD MISSING DEVICE MESSAGE
| Line S02007 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04439 M02S02007.286l859 ---| RJ SEM SEND ERROR MESSAGE
| Line S02008 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04440 M02S02008.286l859 ---| SA2 CDSA RESTORE (X0)
| Line S02009 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04441 M02S02009.286l859 ---| BX0 X2
| Line S02010 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04442 M02S02010.286l859 ---| SX6 B1 SET DEVICE NOT FOUND STATUS
| Line S02011 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04443 M02S02011.286l859 ---| EQ CDSX RETURN 04444 M01S02306.286l859 +++| PCF1 NG X2,PCFX IF NO OLD CATALOG TRACK 04445 M01S02307.286l859 +++| PCINT CATS,CTCC CLEAR OLD CATALOG TRACK INTERLOCK 04446 M01S02012.comcpfs +++|
| Line S02013 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04447 M02S02013.286l859 ---| CDSA BSSZ 1 (X0) SAVE AREA 04448 M01S02308.286l859 +++| PCF SUBR ENTRY/EXIT 04449 M01S02309.286l859 +++| SA2 CTRK 04450 M01S02310.286l859 +++| SA1 PDUI 04451 M01S02311.286l859 +++| BX6 X5 04452 M01S02312.286l859 +++| SA6 A2 UPDATE CATALOG TRACK 04453 M01S02313.286l859 +++| NG X5,PCF1 IF CLEARING CATALOG TRACK STATUS 04454 M01S02314.286l859 +++| MX7 -3 04455 M01S02315.286l859 +++| BX7 -X7*X1 04456 M01S02316.286l859 +++| LX6 3 04457 M01S02317.286l859 +++| BX7 X7+X6 SET NEW CATALOG TRACK 04458 M01S02318.286l859 +++| SA7 A1 04459 M01S02319.286l859 +++| SX6 A1 04460 M01S02320.286l859 +++| SX7 PDWD 04461 M01S02321.286l859 +++| LX7 18 04462 M01S02322.286l859 +++| BX7 X6+X7 04463 M01S02323.286l859 +++| SA7 CATS+FTPM SET PF DESCRIPTION POINTERS 04464 M01S02324.286l859 +++| BX0 X2 SAVE OLD CATALOG TRACK STATUS 04465 M01S02325.286l859 +++| CALLPFU CATS,CTPC,R POSITION CATALOG FILE TO NEW TRACK 04466 M01S02326.286l859 +++| PL X0,PCFX IF OLD CATALOG TRACK ON ENTRY 04467 M01S02327.286l859 +++| PCINT CATS,CTSC SET NEW CATALOG TRACK INTERLOCK 04468 M01S02328.286l859 +++| EQ PCFX RETURN 04469 M01S02014.comcpfs +++| SAC SPACE 4,15 04470 M01S02015.comcpfs +++|** SAC - SET PF ACTIVITY COUNT. 04471 M01S02016.comcpfs +++|* 04472 M01S02017.comcpfs +++|* ENTRY (ACFL) = 0. 04473 M01S02018.comcpfs +++|* (MAEQ) = MASTER DEVICE EST ORDINAL. 04474 M01S02019.comcpfs +++|* 04475 M01S02020.comcpfs +++|* EXIT (ACFL) = 1. 04476 M01S02021.comcpfs +++|* *PFU* CALLED TO SET PF ACTIVITY COUNT. 04477 M01S02022.comcpfs +++|* 04478 M01S02023.comcpfs +++|* USES X - 3, 6. 04479 M01S02024.comcpfs +++|* A - 3, 6. 04480 M01S02025.comcpfs +++|* 04481 M01S02026.comcpfs +++|* MACROS CALLPFU, MESSAGE, MOVE. 04482 M01S02027.comcpfs +++| 04483 M01S02028.comcpfs +++| 04484 M01S02029.comcpfs +++| SAC SUBR ENTRY/EXIT 04485 M01S02030.comcpfs +++| SA3 MAEQ SET MASTER DEVICE EST ORDINAL 04486 M01S02031.comcpfs +++| SX6 ACFL SET ACTIVITY COUNT FLAG ADDRESS 04487 M01S02032.comcpfs +++| LX3 -12 04488 M01S02033.comcpfs +++| BX6 X3+X6 MERGE WITH FET ADDRESS 04489 M01S02034.comcpfs +++| SA6 ACFT+FTPM 04490 M01S02035.comcpfs +++| SA3 IDSA+/COMSPFS/ADM1 *K* DISPLAY MESSAGE ADDRESS 04491 M01S02036.comcpfs +++| MOVE 4,MESP,X3 *SETTING PF ACTIVITY COUNT.* 04492 M01S02037.comcpfs +++| MESSAGE MESP,2,R 04493 M01S02038.comcpfs +++| CALLPFU ACFT,CTIA,R INCREMENT PF ACTIVITY COUNT 04494 M01S02039.comcpfs +++| SA3 IDSA+/COMSPFS/ADM1 *K* DISPLAY MESSAGE ADDRESS 04495 M01S02040.comcpfs +++| MOVE 4,MENL,X3 CLEAR SETTING MESSAGE 04496 M01S02041.comcpfs +++| MESSAGE (=C**),2,R 04497 M01S02042.comcpfs +++| EQ SACX RETURN
| Line S02043 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | ns2670a |
Seq # *Modification Id* Act ----------------------------+ 04498 M02S02043.ns2670a ---| SFL SPACE 4,15 04499 M01S00001.ns2670a +++| SFL SPACE 4,20 04500 M01S02044.comcpfs +++|** SFL - SET FILE LENGTH. 04501 M01S02045.comcpfs +++|*
| Line S02046 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04502 M02S02046.286l859 ---|* ENTRY (B3) = CATALOG ENTRY ADDRESS. 04503 M01S02329.286l859 +++|* ENTRY (A0) = CATALOG ENTRY ADDRESS. 04504 M01S00002.ns2670a +++|* (FLCF) .NE. 0 IF CORRECT FILE LENGTH IN CATALOG ENTRY. 04505 M01S02047.comcpfs +++|*
| Line S02048 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04506 M02S02048.286l859 ---|* EXIT (X6) = 0 IF NO ERROR.
| Line S02049 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04507 M02S02049.286l859 ---|* (X6) .NE. 0 IF NON-MASTER DEVICE NOT FOUND. 04508 M01S02330.286l859 +++|* EXIT (A0) = CATALOG ENTRY ADDRESS. 04509 M01S02331.286l859 +++|* (X6) .NE. 0 IF NO ERROR. 04510 M01S02332.286l859 +++|* (X6) = 0 IF NON-MASTER DEVICE NOT FOUND. 04511 M01S02050.comcpfs +++|* FILE LENGTH SET IN PFC ENTRY IF NO ERROR. 04512 M01S00003.ns2670a +++|* (FLCF) .NE. 0 IF CORRECT FILE LENGTH IN CATALOG ENTRY 04513 M01S00004.ns2670a +++|* AND NO ERROR. 04514 M01S02051.comcpfs +++|*
| Line S02052 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | ns2670a |
Seq # *Modification Id* Act ----------------------------+ 04515 M02S02052.ns2670a ---|* USES X - 0, 1, 2, 4, 6, 7. 04516 M01S00005.ns2670a +++|* USES X - 0, 1, 2, 4, 5, 6, 7. 04517 M01S02053.comcpfs +++|* A - 1, 2, 4, 6, 7.
| Line S02054 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04518 M02S02054.286l859 ---|* B - 3. 04519 M01S02333.286l859 +++|* B - 2, 3. 04520 M01S02055.comcpfs +++|*
| Line S02056 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04521 M02S02056.286l859 ---|* CALLS CDS. 04522 M01S02334.286l859 +++|* CALLS CDS, CFE, SDE. 04523 M01S02057.comcpfs +++|* 04524 M01S02058.comcpfs +++|* MACROS CALLPFU. 04525 M01S02059.comcpfs +++| 04526 M01S02060.comcpfs +++| 04527 M01S02061.comcpfs +++| SFL SUBR ENTRY/EXIT 04528 M01S00006.ns2670a +++| SA1 FLCF
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2670a |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04529 M02S00007.286l859 ---| NZ X1,SFL4 IF FILE LENGTH ALREADY CORRECT
| Line S02062 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04530 M02S02062.286l859 ---| SA4 B3+FCLF CHECK FILE LENGTH IN PFC
| Line S02063 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04531 M02S02063.286l859 ---| SA1 B3+FCDN 04532 M01S02335.286l859 +++| NZ X1,SFL3 IF FILE LENGTH ALREADY CORRECT 04533 M01S02336.286l859 +++| SA4 A0+FCLF 04534 M01S02337.286l859 +++| SA1 A0+FCDN 04535 M01S02064.comcpfs +++| SA2 MAEQ 04536 M01S02065.comcpfs +++| MX7 24 04537 M01S02066.comcpfs +++| MX0 -12 04538 M01S02067.comcpfs +++| BX7 X7*X4 04539 M01S02068.comcpfs +++| LX4 59-11
| Line S02069 Modification History | |
|---|---|
M01 (Added by) | comcpfs |
M02 (Updated by) | ns2670a |
Seq # *Modification Id* Act ----------------------------+ 04540 M02S02069.ns2670a ---| SX6 B0 CLEAR ERROR STATUS
Proceed to Part 5
cdc/nos2.source/opl.opl871/common/comcpfs.004.txt · Last modified: by 127.0.0.1