Common COMXMFD

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comxmfd +++|
00002  M00S00002.comxmfd +++|#     COMXMFD - MOVE COMMUNICATION FILE DATA.                         #
00003  M00S00003.comxmfd +++|                                               CONTROL NOLIST;
00004  M00S00004.comxmfd +++|                                               CONTROL IFEQ LISTCON,1;
00005  M00S00005.comxmfd +++|                                               CONTROL LIST;
00006  M00S00006.comxmfd +++|                                               CONTROL FI;
00007  M00S00007.comxmfd +++|      BEGIN  # COMXMFD #
00008  M00S00008.comxmfd +++|
00009  M00S00009.comxmfd +++|#
00010  M00S00010.comxmfd +++|***   COMXMFD - MOVE COMMUNICATION FILE DATA.
00011  M00S00011.comxmfd +++|*
00012  M00S00012.comxmfd +++|*     COMXMFD CONTAINS THE DATA AREAS USED BY SSEXEC TO PROCESS THE
00013  M00S00013.comxmfd +++|*     MOVE COMMUNICATION FILE (*MOVCOM*) CREATED BY THE *SSMOVE*
00014  M00S00014.comxmfd +++|*     UTILITY.
00015  M00S00015.comxmfd +++|#
00016  M00S00016.comxmfd +++|
00017  M00S00017.comxmfd +++|
00018  M00S00018.comxmfd +++|      DEF MCFBUFL    #O"101"#;       # *MVOCOM* BUFFER LENGTH #

Line S00001 Modification History
`M01` (Added by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00019  M01S00001.common1 +++|      DEF SCCBL      #O"217"#;       # (SFETL + MCFBUFL * 2 + 1) #
00020  M00S00019.comxmfd +++|
00021  M00S00020.comxmfd +++|
00022  M00S00021.comxmfd +++|#
00023  M00S00022.comxmfd +++|*     MOVE REQUEST FILE MESSAGE SKELETONS.
00024  M00S00023.comxmfd +++|#
00025  M00S00024.comxmfd +++|
00026  M00S00025.comxmfd +++|      DEF MCFATTERR  #" UNABLE TO ATTACH MRF,    FM=XXXXXXX."#;
00027  M00S00026.comxmfd +++|      DEF MCFPCOMP   #" MRF PROCESSING COMPLETE, FM=XXXXXXX."#;
00028  M00S00027.comxmfd +++|      DEF MCFRDERR   #" UNABLE TO READ MRF,      FM=XXXXXXX."#;
00029  M00S00028.comxmfd +++|      DEF SCRRDERR   #" UNABLE TO READ SCRATCH,  FM=XXXXXXX."#;
00030  M00S00029.comxmfd +++|      DEF SCRWTERR   #" UNABLE TO WRITE SCRATCH, FM=XXXXXXX."#;
00031  M00S00030.comxmfd +++|
00032  M00S00031.comxmfd +++|      COMMON XMFDCOM;
00033  M00S00032.comxmfd +++|
00034  M00S00033.comxmfd +++|        BEGIN  # XMFDCOM #
00035  M00S00034.comxmfd +++|
00036  M00S00035.comxmfd +++|        ARRAY MCF$PRM [0:0] P(MVPRML); ;  # MOVE FILE PREAMBLE #
00037  M00S00036.comxmfd +++|
00038  M00S00037.comxmfd +++|        ARRAY MCF$FET [0:0] P(SFETL); ;  # *MVOCOM* FET #
00039  M00S00038.comxmfd +++|
00040  M00S00039.comxmfd +++|        ARRAY MCF$BUF [0:0] P(MCFBUFL); ;  # *MVOCOM* BUFFER #
00041  M00S00040.comxmfd +++|
00042  M00S00041.comxmfd +++|
00043  M00S00042.comxmfd +++|        ARRAY MCF$REQ [0:0] P(TDAMLEN);  # MOVE REQUEST FILE ENTRY #
00044  M00S00043.comxmfd +++|          BEGIN
00045  M00S00044.comxmfd +++|          ITEM MCFREQST   C(00,00,60);  # REQUEST ENTRY #
00046  M00S00045.comxmfd +++|          END
00047  M00S00046.comxmfd +++|

Line S00047 Modification History
`M01` (Removed by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00048  M01S00047.common1 ---|        ARRAY SCR1$FET[0:0] P(SFETL); ;  # SCRATCH BUFFER FET #
00049  M01S00048.common1 ---|
00050  M01S00049.common1 ---|        ARRAY SCR1$BUF[0:0] P(MCFBUFL); ;  # SCRATCH FILE BUFFER #
00051  M01S00050.common1 ---|
00052  M01S00051.common1 ---|        ARRAY SCR2$FET[0:0] P(SFETL); ;  # SCRATCH FILE FET #
00053  M01S00052.common1 ---|
00054  M01S00053.common1 ---|        ARRAY SCR2$BUF[0:0] P(MCFBUFL); ;  # SCRATCH FILE BUFFER #
00055  M00S00054.comxmfd ---|
00056  M00S00055.comxmfd ---|        ARRAY SCR$SUBI [0:MAXSF] S(1);  # SCRATCH FILE ENTRIES #
00057  M00S00056.comxmfd ---|          BEGIN
00058  M00S00057.comxmfd ---|          ITEM SCR$SBI    U(00,00,06) ;  # SUBFAMILY NUMBER + ONE #
00059  M00S00058.comxmfd ---|          ITEM SCR$AUS    U(00,06,18) ;  # SHORT AU FOR SUBFAMILY #
00060  M00S00059.comxmfd ---|          ITEM SCR$AUL    U(00,24,18) ;  # LARGE AU FOR SUBFAMILY #
00061  M01S00060.common1 ---|          ITEM SCR$HLRQ   U(00,42,18) ;  # CURRENT HLRQ ASSIGNED #

Line S00002 Modification History
`M01` (Added by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00061.comxmfd +++|          END
00065  M00S00062.comxmfd +++|

Line S00063 Modification History
`M01` (Removed by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00066  M01S00063.common1 ---|        ARRAY SCRATCHF1[0:0] S(1);   # SCRATCH FILE NAMES #

Line S00004 Modification History
`M01` (Added by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00067  M01S00004.common1 +++|        ARRAY SCRATCHF1[0:MAXSF] S(1);    # SCRATCH FILE NAMES #
00068  M00S00064.comxmfd +++|          BEGIN
00069  M00S00065.comxmfd +++|          ITEM SCRNMU     U(00,00,60);  # WHOLE WORD #
00070  M00S00066.comxmfd +++|          ITEM SCRZRO     U(00,42,18);  # ZERO BOTTOM #
00071  M00S00067.comxmfd +++|          ITEM SCRNM      C(00,00,07);
00072  M00S00068.comxmfd +++|          ITEM NAMESCR    C(00,00,06) = ["SCRATC"];
00073  M00S00069.comxmfd +++|          ITEM SBI        C(00,30,01);
00074  M00S00070.comxmfd +++|          END
00075  M00S00071.comxmfd +++|

Line S00072 Modification History
`M01` (Removed by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00076  M01S00072.common1 ---|        ARRAY SCRATCHF2[0:0]S(1);    # SECOND SCRATCH FILE #

Line S00005 Modification History
`M01` (Added by)	`common1`

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

Line S00074 Modification History
`M01` (Removed by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00079  M01S00074.common1 ---|          ITEM SCRNMX     C(00,00,07) = ["SCRATCH"];

Line S00006 Modification History
`M01` (Added by)	`common1`

Seq #  *Modification Id* Act 
----------------------------+
00080  M01S00006.common1 +++|          ITEM SCRNMX     C(00,00,07) = ["SCRBBB "];
00081  M01S00007.common1 +++|          ITEM SCI        C(00,30,01);
00082  M00S00075.comxmfd +++|          END
00083  M00S00076.comxmfd +++|
00084  M00S00077.comxmfd +++|        ARRAY MOVMSG [0:0] P(4);     # MOVE REQUEST FILE MESSAGE #
00085  M00S00078.comxmfd +++|          BEGIN
00086  M00S00079.comxmfd +++|          ITEM MOVMLINE   C(00,00,38);  # MESSAGE LINE #
00087  M00S00080.comxmfd +++|          ITEM MOVMFAM    C(02,54,07);  # FAMILY NAME #
00088  M00S00081.comxmfd +++|          ITEM MOVMZBYTE  U(03,48,12) = [0];  # MESSAGE TERMINATOR #
00089  M00S00082.comxmfd +++|          END
00090  M00S00083.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  M00S00084.comxmfd +++|        END  # XMFDCOM #
00101  M00S00085.comxmfd +++|
00102  M00S00086.comxmfd +++|      END  # COMXMFD #
00103  M00S00087.comxmfd +++|
00104  M00S00088.comxmfd +++|                                               CONTROL LIST;