Common COMXMFD

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comxmfd +++|
00002  M01S00002.comxmfd +++|#     COMXMFD - MOVE COMMUNICATION FILE DATA.                         #
00003  M01S00003.comxmfd +++|                                               CONTROL NOLIST;
00004  M01S00004.comxmfd +++|                                               CONTROL IFEQ LISTCON,1;
00005  M01S00005.comxmfd +++|                                               CONTROL LIST;
00006  M01S00006.comxmfd +++|                                               CONTROL FI;
00007  M01S00007.comxmfd +++|      BEGIN  # COMXMFD #
00008  M01S00008.comxmfd +++|
00009  M01S00009.comxmfd +++|#
00010  M01S00010.comxmfd +++|***   COMXMFD - MOVE COMMUNICATION FILE DATA.
00011  M01S00011.comxmfd +++|*
00012  M01S00012.comxmfd +++|*     COMXMFD CONTAINS THE DATA AREAS USED BY SSEXEC TO PROCESS THE
00013  M01S00013.comxmfd +++|*     MOVE COMMUNICATION FILE (*MOVCOM*) CREATED BY THE *SSMOVE*
00014  M01S00014.comxmfd +++|*     UTILITY.
00015  M01S00015.comxmfd +++|#
00016  M01S00016.comxmfd +++|
00017  M01S00017.comxmfd +++|
00018  M01S00018.comxmfd +++|      DEF MCFBUFL    #O"101"#;       # *MVOCOM* BUFFER LENGTH #
00019  M01S00001.common1 +++|      DEF SCCBL      #O"217"#;       # (SFETL + MCFBUFL * 2 + 1) #
00020  M01S00019.comxmfd +++|
00021  M01S00020.comxmfd +++|
00022  M01S00021.comxmfd +++|#
00023  M01S00022.comxmfd +++|*     MOVE REQUEST FILE MESSAGE SKELETONS.
00024  M01S00023.comxmfd +++|#
00025  M01S00024.comxmfd +++|
00026  M01S00025.comxmfd +++|      DEF MCFATTERR  #" UNABLE TO ATTACH MRF,    FM=XXXXXXX."#;
00027  M01S00026.comxmfd +++|      DEF MCFPCOMP   #" MRF PROCESSING COMPLETE, FM=XXXXXXX."#;
00028  M01S00027.comxmfd +++|      DEF MCFRDERR   #" UNABLE TO READ MRF,      FM=XXXXXXX."#;
00029  M01S00028.comxmfd +++|      DEF SCRRDERR   #" UNABLE TO READ SCRATCH,  FM=XXXXXXX."#;
00030  M01S00029.comxmfd +++|      DEF SCRWTERR   #" UNABLE TO WRITE SCRATCH, FM=XXXXXXX."#;
00031  M01S00030.comxmfd +++|
00032  M01S00031.comxmfd +++|      COMMON XMFDCOM;
00033  M01S00032.comxmfd +++|
00034  M01S00033.comxmfd +++|        BEGIN  # XMFDCOM #
00035  M01S00034.comxmfd +++|
00036  M01S00035.comxmfd +++|        ARRAY MCF$PRM [0:0] P(MVPRML); ;  # MOVE FILE PREAMBLE #
00037  M01S00036.comxmfd +++|
00038  M01S00037.comxmfd +++|        ARRAY MCF$FET [0:0] P(SFETL); ;  # *MVOCOM* FET #
00039  M01S00038.comxmfd +++|
00040  M01S00039.comxmfd +++|        ARRAY MCF$BUF [0:0] P(MCFBUFL); ;  # *MVOCOM* BUFFER #
00041  M01S00040.comxmfd +++|
00042  M01S00041.comxmfd +++|
00043  M01S00042.comxmfd +++|        ARRAY MCF$REQ [0:0] P(TDAMLEN);  # MOVE REQUEST FILE ENTRY #
00044  M01S00043.comxmfd +++|          BEGIN
00045  M01S00044.comxmfd +++|          ITEM MCFREQST   C(00,00,60);  # REQUEST ENTRY #
00046  M01S00045.comxmfd +++|          END
00047  M01S00046.comxmfd +++|

Line S00047 Modification History
`M01` (Added by)	`comxmfd`
`M02` (Updated by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00047.common1 ---|        ARRAY SCR1$FET[0:0] P(SFETL); ;  # SCRATCH BUFFER FET #

Line S00048 Modification History
`M01` (Added by)	`comxmfd`
`M02` (Updated by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00048.common1 ---|

Line S00049 Modification History
`M01` (Added by)	`comxmfd`
`M02` (Updated by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00049.common1 ---|        ARRAY SCR1$BUF[0:0] P(MCFBUFL); ;  # SCRATCH FILE BUFFER #

Line S00050 Modification History
`M01` (Added by)	`comxmfd`
`M02` (Updated by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00051  M02S00050.common1 ---|

Line S00051 Modification History
`M01` (Added by)	`comxmfd`
`M02` (Updated by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00052  M02S00051.common1 ---|        ARRAY SCR2$FET[0:0] P(SFETL); ;  # SCRATCH FILE FET #

Line S00052 Modification History
`M01` (Added by)	`comxmfd`
`M02` (Updated by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00053  M02S00052.common1 ---|

Line S00053 Modification History
`M01` (Added by)	`comxmfd`
`M02` (Updated by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00054  M02S00053.common1 ---|        ARRAY SCR2$BUF[0:0] P(MCFBUFL); ;  # SCRATCH FILE BUFFER #
00055  M01S00054.comxmfd +++|
00056  M01S00055.comxmfd +++|        ARRAY SCR$SUBI [0:MAXSF] S(1);  # SCRATCH FILE ENTRIES #
00057  M01S00056.comxmfd +++|          BEGIN
00058  M01S00057.comxmfd +++|          ITEM SCR$SBI    U(00,00,06) ;  # SUBFAMILY NUMBER + ONE #
00059  M01S00058.comxmfd +++|          ITEM SCR$AUS    U(00,06,18) ;  # SHORT AU FOR SUBFAMILY #
00060  M01S00059.comxmfd +++|          ITEM SCR$AUL    U(00,24,18) ;  # LARGE AU FOR SUBFAMILY #

Line S00060 Modification History
`M01` (Added by)	`comxmfd`
`M02` (Updated by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00061  M02S00060.common1 ---|          ITEM SCR$HLRQ   U(00,42,18) ;  # CURRENT HLRQ ASSIGNED #
00062  M01S00002.common1 +++|          ITEM SCR$WTDRD  B(00,42,01);   # WAIT DRD ON SM #
00063  M01S00003.common1 +++|          ITEM SCR$HLRQ   U(00,43,17);   # CURRENT HLRQ ASSIGNED #
00064  M01S00061.comxmfd +++|          END
00065  M01S00062.comxmfd +++|

Line S00063 Modification History
`M01` (Added by)	`comxmfd`
`M02` (Updated by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00066  M02S00063.common1 ---|        ARRAY SCRATCHF1[0:0] S(1);   # SCRATCH FILE NAMES #
00067  M01S00004.common1 +++|        ARRAY SCRATCHF1[0:MAXSF] S(1);    # SCRATCH FILE NAMES #
00068  M01S00064.comxmfd +++|          BEGIN
00069  M01S00065.comxmfd +++|          ITEM SCRNMU     U(00,00,60);  # WHOLE WORD #
00070  M01S00066.comxmfd +++|          ITEM SCRZRO     U(00,42,18);  # ZERO BOTTOM #
00071  M01S00067.comxmfd +++|          ITEM SCRNM      C(00,00,07);
00072  M01S00068.comxmfd +++|          ITEM NAMESCR    C(00,00,06) = ["SCRATC"];
00073  M01S00069.comxmfd +++|          ITEM SBI        C(00,30,01);
00074  M01S00070.comxmfd +++|          END
00075  M01S00071.comxmfd +++|

Line S00072 Modification History
`M01` (Added by)	`comxmfd`
`M02` (Updated by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00072.common1 ---|        ARRAY SCRATCHF2[0:0]S(1);    # SECOND SCRATCH FILE #
00077  M01S00005.common1 +++|        ARRAY SCRATCHF2[0:MAXSF] S(1);    # SECOND SCRATCH FILE #
00078  M01S00073.comxmfd +++|          BEGIN

Line S00074 Modification History
`M01` (Added by)	`comxmfd`
`M02` (Updated by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00074.common1 ---|          ITEM SCRNMX     C(00,00,07) = ["SCRATCH"];
00080  M01S00006.common1 +++|          ITEM SCRNMX     C(00,00,07) = ["SCRBBB "];
00081  M01S00007.common1 +++|          ITEM SCI        C(00,30,01);
00082  M01S00075.comxmfd +++|          END
00083  M01S00076.comxmfd +++|
00084  M01S00077.comxmfd +++|        ARRAY MOVMSG [0:0] P(4);     # MOVE REQUEST FILE MESSAGE #
00085  M01S00078.comxmfd +++|          BEGIN
00086  M01S00079.comxmfd +++|          ITEM MOVMLINE   C(00,00,38);  # MESSAGE LINE #
00087  M01S00080.comxmfd +++|          ITEM MOVMFAM    C(02,54,07);  # FAMILY NAME #
00088  M01S00081.comxmfd +++|          ITEM MOVMZBYTE  U(03,48,12) = [0];  # MESSAGE TERMINATOR #
00089  M01S00082.comxmfd +++|          END
00090  M01S00083.comxmfd +++|
00091  M01S00008.common1 +++|        BASED
00092  M01S00009.common1 +++|        ARRAY SCR1$FET[0:0] P(SFETL);       # SCRATCH BUFFER FET #
00093  M01S00010.common1 +++|          BEGIN
00094  M01S00011.common1 +++|          ITEM CLEARBUF   U(00,00,60);      # CLEAR WORD #
00095  M01S00012.common1 +++|          END
00096  M01S00013.common1 +++|
00097  M01S00014.common1 +++|        BASED
00098  M01S00015.common1 +++|        ARRAY SCR2$FET[0:0] P(SFETL);;      # SCRATCH FILE FET #
00099  M01S00016.common1 +++|
00100  M01S00084.comxmfd +++|        END  # XMFDCOM #
00101  M01S00085.comxmfd +++|
00102  M01S00086.comxmfd +++|      END  # COMXMFD #
00103  M01S00087.comxmfd +++|
00104  M01S00088.comxmfd +++|                                               CONTROL LIST;