*********************************************************************** 00000768 * * 00001468 * MODULE NAME = BNGIS327 * 00002168 * * 00002868 * DESCRIPTIVE NAME = IMS DEMF '3270' SCREEN FORMAT MODULE * 00003568 * * 00004268 * COPYRIGHT = NONE * 00004968 * * 00005668 * STATUS = RELEASE 1, LEVEL 1 * 00006368 * * 00007068 * FUNCTION = DEFINES THE FORMAT OF '3270' DISPLAY SCREEN USING * 00007768 * BOTH MESSAGE INPUT DESCRIPTOR (MID) AND MESSAGE OUTPUT * 00008468 * DESCRIPTOR (MOD) FOR THE IMS APPLICATION PROGRAM, * 00009168 * BNGI3270. * 00009868 * * 00010568 * NOTES = NONE * 00011268 * * 00011968 * DEPENDENCIES = NONE * 00012668 * * 00013368 * RESTRICTIONS = NONE * 00014068 * * 00014768 * REGISTER CONVENTIONS = NONE * 00015468 * * 00016168 * PATCH LABEL = NONE * 00016868 * * 00017568 * MODULE TYPE = IMS SCREEN * 00018268 * * 00018968 * PROCESSOR = ASSEMBLER H * 00019668 * * 00020368 * MODULE SIZE = 5236 DECIMAL BYTES (FOR 3277 MODEL 2) * 00021068 * = 3193 DECIMAL BYTES (FOR 3277 MODEL 1) * 00021768 * * 00022468 * ATTRIBUTES = SERIALLY REUSABLE * 00023168 * * 00023868 * ENTRY POINT = BNGI32 * 00024568 * * 00025268 * PURPOSE = SEE FUNCTION * 00025968 * * 00026668 * LINKAGE = MESSAGE INPUT DESCRIPTOR (MID) NAME : BNGII327 * 00027368 * MESSAGE OUTPUT DESCRIPTOR (MOD) NAME : BNGIO327 * 00028068 * * 00028768 * EXIT-NORMAL = NONE * 00029468 * * 00030168 * EXIT-ERROR = NONE * 00030868 * * 00031568 * EXTERNAL REFERENCE = NONE * 00032268 * * 00032968 * ROUTINES = NONE * 00033668 * * 00034368 * DATA AREAS = N/A * 00035068 * * 00035768 * CONTROL BLOCK = NONE * 00036468 * * 00037168 * TABLES = NONE * 00037868 * * 00038568 * MACROS = PRINT, FMT, DIV, DPAGE, DFLD, DEV, FMTEND, MSG, SEG, * 00039268 * MFLD, MSGEND * 00039968 * * 00040668 * CHANGE ACTIVITIES AS FOLLOWS: * 00041368 * CHANGE 01 11/15/77 PROLOGUE ADDED * 00042068 * * 00042768 *********************************************************************** 00043468 PRINT NOGEN 00049468 BNGI32 FMT 00050168 DEV TYPE=(3270,2),FEAT=(IGNORE),DSCA=X'0020' 00100168 DIV TYPE=INOUT 00150168 DPAGE FILL=PT,CURSOR=((1,7)) 00200168 FLD1 DFLD POS=(1,2),LTH=4,ATTR=(MOD,PROT,NUM) 00250168 FLD2 DFLD POS=(1,7),LTH=29 00300168 FLD3 DFLD POS=(1,37),LTH=4,ATTR=(MOD,PROT,NUM) 00350168 D2 DFLD POS=(1,42),LTH=39,ATTR=(PROT,ALPHA) 00400168 FLD4 DFLD POS=(2,2),LTH=1,ATTR=(PROT) 00450168 FLD5 DFLD POS=(2,4),LTH=1 00500168 FLD6 DFLD POS=(2,6),LTH=14,ATTR=(PROT) 00550168 FLD7 DFLD POS=(2,21),LTH=20,ATTR=(PROT,MOD,NUM) 00600168 FLD8 DFLD POS=(2,42),LTH=1,ATTR=(PROT) 00650168 FLD9 DFLD POS=(2,44),LTH=1 00700168 FLD10 DFLD POS=(2,46),LTH=14,ATTR=(PROT) 00750168 FLD11LG DFLD POS=(2,61),LTH=15,ATTR=(PROT,MOD,NUM,NODISP) 00800168 D3 DFLD POS=(2,77),LTH=4,ATTR=(PROT,ALPHA) 00850168 FLD12 DFLD POS=(3,2),LTH=39,ATTR=(PROT) 00900168 FLD14 DFLD POS=(4,2),LTH=39,ATTR=(PROT) 00950168 FLD15 DFLD POS=(4,42),LTH=39,ATTR=(PROT) 01000168 FLD16 DFLD POS=(5,2),LTH=1 01050168 FLD17 DFLD POS=(5,4),LTH=9 01100168 FLD18 DFLD POS=(5,14),LTH=27 01150168 FLD19 DFLD POS=(5,42),LTH=1 01200168 FLD20 DFLD POS=(5,44),LTH=9 01250168 FLD21 DFLD POS=(5,54),LTH=27 01300168 FLD22 DFLD POS=(6,2),LTH=1 01350168 FLD23 DFLD POS=(6,4),LTH=9 01400168 FLD24 DFLD POS=(6,14),LTH=27 01450168 FLD25 DFLD POS=(6,42),LTH=1 01500168 FLD26 DFLD POS=(6,44),LTH=9 01550168 FLD27 DFLD POS=(6,54),LTH=27 01600168 FLD28 DFLD POS=(7,2),LTH=1 01650168 FLD29 DFLD POS=(7,4),LTH=9 01700168 FLD30 DFLD POS=(7,14),LTH=27 01750168 FLD31 DFLD POS=(7,42),LTH=1 01800168 FLD32 DFLD POS=(7,44),LTH=9 01850168 FLD33 DFLD POS=(7,54),LTH=27 01900168 FLD34 DFLD POS=(8,2),LTH=1 01950168 FLD35 DFLD POS=(8,4),LTH=9 02000168 FLD36 DFLD POS=(8,14),LTH=27 02050168 FLD37 DFLD POS=(8,42),LTH=1 02100168 FLD38 DFLD POS=(8,44),LTH=9 02150168 FLD39 DFLD POS=(8,54),LTH=27 02200168 FLD40 DFLD POS=(9,2),LTH=1 02250168 FLD41 DFLD POS=(9,4),LTH=9 02300168 FLD42 DFLD POS=(9,14),LTH=27 02350168 FLD43 DFLD POS=(9,42),LTH=1 02400168 FLD44 DFLD POS=(9,44),LTH=9 02450168 FLD45 DFLD POS=(9,54),LTH=27 02500168 FLD46 DFLD POS=(10,2),LTH=1 02550168 FLD47 DFLD POS=(10,4),LTH=9 02600168 FLD48 DFLD POS=(10,14),LTH=27 02650168 FLD49 DFLD POS=(10,42),LTH=1 02700168 FLD50 DFLD POS=(10,44),LTH=9 02750168 FLD51 DFLD POS=(10,54),LTH=27 02800168 FLD52 DFLD POS=(11,2),LTH=1 02850168 FLD53 DFLD POS=(11,4),LTH=9 02900168 FLD54 DFLD POS=(11,14),LTH=27 02950168 FLD55 DFLD POS=(11,42),LTH=1 03000168 FLD56 DFLD POS=(11,44),LTH=9 03050168 FLD57 DFLD POS=(11,54),LTH=27 03100168 FLD58 DFLD POS=(12,2),LTH=1 03150168 FLD59 DFLD POS=(12,4),LTH=9 03200168 FLD60 DFLD POS=(12,14),LTH=27 03250168 FLD61 DFLD POS=(12,42),LTH=1 03300168 FLD62 DFLD POS=(12,44),LTH=9 03350168 FLD63 DFLD POS=(12,54),LTH=27 03400168 FLD64 DFLD POS=(13,2),LTH=1 03450168 FLD65 DFLD POS=(13,4),LTH=9 03500168 FLD66 DFLD POS=(13,14),LTH=27 03550168 FLD67 DFLD POS=(13,42),LTH=1 03600168 FLD68 DFLD POS=(13,44),LTH=9 03650168 FLD69 DFLD POS=(13,54),LTH=27 03700168 FLD70 DFLD POS=(14,2),LTH=1 03750168 FLD71 DFLD POS=(14,4),LTH=9 03800168 FLD72 DFLD POS=(14,14),LTH=27 03850168 FLD73 DFLD POS=(14,42),LTH=1 03900168 FLD74 DFLD POS=(14,44),LTH=9 03950168 FLD75 DFLD POS=(14,54),LTH=27 04000168 FLD76 DFLD POS=(15,2),LTH=1 04050168 FLD77 DFLD POS=(15,4),LTH=9 04100168 FLD78 DFLD POS=(15,14),LTH=27 04150168 FLD79 DFLD POS=(15,42),LTH=1 04200168 FLD80 DFLD POS=(15,44),LTH=9 04250168 FLD81 DFLD POS=(15,54),LTH=27 04300168 FLD82 DFLD POS=(16,2),LTH=1 04350168 FLD83 DFLD POS=(16,4),LTH=9 04400168 FLD84 DFLD POS=(16,14),LTH=27 04450168 FLD85 DFLD POS=(16,42),LTH=1 04500168 FLD86 DFLD POS=(16,44),LTH=9 04550168 FLD87 DFLD POS=(16,54),LTH=27 04600168 FLD88 DFLD POS=(17,2),LTH=1 04650168 FLD89 DFLD POS=(17,4),LTH=9 04700168 FLD90 DFLD POS=(17,14),LTH=27 04750168 FLD91 DFLD POS=(17,42),LTH=1 04800168 FLD92 DFLD POS=(17,44),LTH=9 04850168 FLD93 DFLD POS=(17,54),LTH=27 04900168 FLD94 DFLD POS=(18,2),LTH=1 04950168 FLD95 DFLD POS=(18,4),LTH=9 05000168 FLD96 DFLD POS=(18,14),LTH=27 05050168 FLD97 DFLD POS=(18,42),LTH=1 05100168 FLD98 DFLD POS=(18,44),LTH=9 05150168 FLD99 DFLD POS=(18,54),LTH=27 05200168 FLD100 DFLD POS=(19,2),LTH=1 05250168 FLD101 DFLD POS=(19,4),LTH=9 05300168 FLD102 DFLD POS=(19,14),LTH=27 05350168 FLD103 DFLD POS=(19,42),LTH=1 05400168 FLD104 DFLD POS=(19,44),LTH=9 05450168 FLD105 DFLD POS=(19,54),LTH=27 05500168 FLD106 DFLD POS=(20,2),LTH=1 05550168 FLD107 DFLD POS=(20,4),LTH=9 05600168 FLD108 DFLD POS=(20,14),LTH=27 05650168 FLD109 DFLD POS=(20,42),LTH=1 05700168 FLD110 DFLD POS=(20,44),LTH=9 05750168 FLD111 DFLD POS=(20,54),LTH=27 05800168 FLD112 DFLD POS=(21,2),LTH=1 05850168 FLD113 DFLD POS=(21,4),LTH=9 05900168 FLD114 DFLD POS=(21,14),LTH=27 05950168 FLD115 DFLD POS=(21,42),LTH=1 06000168 FLD116 DFLD POS=(21,44),LTH=9 06050168 FLD117 DFLD POS=(21,54),LTH=27 06100168 FLD118 DFLD POS=(22,2),LTH=1 06150168 FLD119 DFLD POS=(22,4),LTH=9 06200168 FLD120 DFLD POS=(22,14),LTH=27 06250168 FLD121 DFLD POS=(22,42),LTH=1 06300168 FLD122 DFLD POS=(22,44),LTH=9 06350168 FLD123 DFLD POS=(22,54),LTH=27 06400168 FLD124 DFLD POS=(23,2),LTH=1 06450168 FLD125 DFLD POS=(23,4),LTH=9 06500168 FLD126 DFLD POS=(23,14),LTH=27 06550168 FLD127 DFLD POS=(23,42),LTH=1 06600168 FLD128 DFLD POS=(23,44),LTH=9 06650168 FLD129 DFLD POS=(23,54),LTH=27 06700168 FLD130 DFLD POS=(24,2),LTH=1 06750168 FLD131 DFLD POS=(24,4),LTH=9 06800168 FLD132 DFLD POS=(24,14),LTH=27 06850168 FLD133 DFLD POS=(24,42),LTH=1 06900168 FLD134 DFLD POS=(24,44),LTH=9 06950168 FLD135 DFLD POS=(24,54),LTH=27 07000168 DEV TYPE=(3270,1),FEAT=(IGNORE),DSCA=X'0020' 07050168 DIV TYPE=INOUT 07100168 DPAGE FILL=PT,CURSOR=((1,7)) 07150168 FLD1 DFLD POS=(1,2),LTH=4,ATTR=(MOD,PROT,NUM) 07200168 FLD2 DFLD POS=(1,7),LTH=29 07250168 FLD3 DFLD POS=(1,37),LTH=4,ATTR=(MOD,PROT,NUM) 07300168 FLD4 DFLD POS=(2,2),LTH=1,ATTR=(PROT) 07350168 FLD5 DFLD POS=(2,4),LTH=1 07400168 FLD6 DFLD POS=(2,6),LTH=14,ATTR=(PROT) 07450168 FLD7 DFLD POS=(2,21),LTH=20,ATTR=(PROT,MOD,NUM) 07500168 FLD8 DFLD POS=(3,2),LTH=1,ATTR=(PROT) 07550168 FLD9 DFLD POS=(3,4),LTH=1 07600168 FLD10 DFLD POS=(3,6),LTH=14,ATTR=(PROT) 07650168 FLD11SM DFLD POS=(3,21),LTH=15,ATTR=(PROT,MOD,NUM,NODISP) 07700168 D3 DFLD POS=(3,37),LTH=4,ATTR=(PROT,ALPHA) 07750168 FLD12 DFLD POS=(4,2),LTH=39,ATTR=(PROT) 07800168 FLD14 DFLD POS=(5,2),LTH=39,ATTR=(PROT) 07850168 FLD16 DFLD POS=(6,2),LTH=1 07900168 FLD17 DFLD POS=(6,4),LTH=9 07950168 FLD18 DFLD POS=(6,14),LTH=27 08000168 FLD19 DFLD POS=(7,2),LTH=1 08050168 FLD20 DFLD POS=(7,4),LTH=9 08100168 FLD21 DFLD POS=(7,14),LTH=27 08150168 FLD22 DFLD POS=(8,2),LTH=1 08200168 FLD23 DFLD POS=(8,4),LTH=9 08250168 FLD24 DFLD POS=(8,14),LTH=27 08300168 FLD25 DFLD POS=(9,2),LTH=1 08350168 FLD26 DFLD POS=(9,4),LTH=9 08400168 FLD27 DFLD POS=(9,14),LTH=27 08450168 FLD28 DFLD POS=(10,2),LTH=1 08500168 FLD29 DFLD POS=(10,4),LTH=9 08550168 FLD30 DFLD POS=(10,14),LTH=27 08600168 FLD31 DFLD POS=(11,2),LTH=1 08650168 FLD32 DFLD POS=(11,4),LTH=9 08700168 FLD33 DFLD POS=(11,14),LTH=27 08750168 FLD34 DFLD POS=(12,2),LTH=1 08800168 FLD35 DFLD POS=(12,4),LTH=9 08850168 FLD36 DFLD POS=(12,14),LTH=27 08900168 FMTEND 08950168 BNGIO327 MSG TYPE=OUTPUT,OPT=1,NXT=BNGII327,SOR=(BNGI32,IGNORE) 09000168 SEG1 SEG 09050168 MFLD (FLD1,'DEMF') 09100168 MFLD (FLD3,'3270') 09150168 MFLD (FLD4,'(') 09200168 MFLD (FLD5,'?') 09250168 MFLD (FLD6,') PAGE FORWARD') 09300168 MFLD FLD7,LTH=20 09350168 MFLD (FLD8,'(') 09400168 MFLD (FLD9,'?') 09450168 MFLD (FLD10,') PAGE BACKWRD') 09500168 MFLD FLD11LG,LTH=15 09550168 MFLD FLD11SM,LTH=15 09600168 MFLD FLD12,LTH=39 09650168 MFLD FLD14,LTH=39 09700168 MFLD FLD15,LTH=39 09750168 MFLD FLD16,LTH=3,ATTR=YES 09800168 MFLD FLD17,LTH=11,ATTR=YES 09850168 MFLD FLD18,LTH=29,ATTR=YES 09900168 MFLD FLD19,LTH=3,ATTR=YES 09950168 MFLD FLD20,LTH=11,ATTR=YES 10000168 MFLD FLD21,LTH=29,ATTR=YES 10050168 MFLD FLD22,LTH=3,ATTR=YES 10100168 MFLD FLD23,LTH=11,ATTR=YES 10150168 MFLD FLD24,LTH=29,ATTR=YES 10200168 MFLD FLD25,LTH=3,ATTR=YES 10250168 MFLD FLD26,LTH=11,ATTR=YES 10300168 MFLD FLD27,LTH=29,ATTR=YES 10350168 MFLD FLD28,LTH=3,ATTR=YES 10400168 MFLD FLD29,LTH=11,ATTR=YES 10450168 MFLD FLD30,LTH=29,ATTR=YES 10500168 MFLD FLD31,LTH=3,ATTR=YES 10550168 MFLD FLD32,LTH=11,ATTR=YES 10600168 MFLD FLD33,LTH=29,ATTR=YES 10650168 MFLD FLD34,LTH=3,ATTR=YES 10700168 MFLD FLD35,LTH=11,ATTR=YES 10750168 MFLD FLD36,LTH=29,ATTR=YES 10800168 MFLD FLD37,LTH=3,ATTR=YES 10850168 MFLD FLD38,LTH=11,ATTR=YES 10900168 MFLD FLD39,LTH=29,ATTR=YES 10950168 MFLD FLD40,LTH=3,ATTR=YES 11000168 MFLD FLD41,LTH=11,ATTR=YES 11050168 MFLD FLD42,LTH=29,ATTR=YES 11100168 MFLD FLD43,LTH=3,ATTR=YES 11150168 MFLD FLD44,LTH=11,ATTR=YES 11200168 MFLD FLD45,LTH=29,ATTR=YES 11250168 MFLD FLD46,LTH=3,ATTR=YES 11300168 MFLD FLD47,LTH=11,ATTR=YES 11350168 MFLD FLD48,LTH=29,ATTR=YES 11400168 MFLD FLD49,LTH=3,ATTR=YES 11450168 MFLD FLD50,LTH=11,ATTR=YES 11500168 MFLD FLD51,LTH=29,ATTR=YES 11550168 MFLD FLD52,LTH=3,ATTR=YES 11600168 MFLD FLD53,LTH=11,ATTR=YES 11650168 MFLD FLD54,LTH=29,ATTR=YES 11700168 MFLD FLD55,LTH=3,ATTR=YES 11750168 MFLD FLD56,LTH=11,ATTR=YES 11800168 MFLD FLD57,LTH=29,ATTR=YES 11850168 MFLD FLD58,LTH=3,ATTR=YES 11900168 MFLD FLD59,LTH=11,ATTR=YES 11950168 MFLD FLD60,LTH=29,ATTR=YES 12000168 MFLD FLD61,LTH=3,ATTR=YES 12050168 MFLD FLD62,LTH=11,ATTR=YES 12100168 MFLD FLD63,LTH=29,ATTR=YES 12150168 MFLD FLD64,LTH=3,ATTR=YES 12200168 MFLD FLD65,LTH=11,ATTR=YES 12250168 MFLD FLD66,LTH=29,ATTR=YES 12300168 MFLD FLD67,LTH=3,ATTR=YES 12350168 MFLD FLD68,LTH=11,ATTR=YES 12400168 MFLD FLD69,LTH=29,ATTR=YES 12450168 MFLD FLD70,LTH=3,ATTR=YES 12500168 MFLD FLD71,LTH=11,ATTR=YES 12550168 MFLD FLD72,LTH=29,ATTR=YES 12600168 MFLD FLD73,LTH=3,ATTR=YES 12650168 MFLD FLD74,LTH=11,ATTR=YES 12700168 MFLD FLD75,LTH=29,ATTR=YES 12750168 MFLD FLD76,LTH=3,ATTR=YES 12800168 MFLD FLD77,LTH=11,ATTR=YES 12850168 MFLD FLD78,LTH=29,ATTR=YES 12900168 MFLD FLD79,LTH=3,ATTR=YES 12950168 MFLD FLD80,LTH=11,ATTR=YES 13000168 MFLD FLD81,LTH=29,ATTR=YES 13050168 MFLD FLD82,LTH=3,ATTR=YES 13100168 MFLD FLD83,LTH=11,ATTR=YES 13150168 MFLD FLD84,LTH=29,ATTR=YES 13200168 MFLD FLD85,LTH=3,ATTR=YES 13250168 MFLD FLD86,LTH=11,ATTR=YES 13300168 MFLD FLD87,LTH=29,ATTR=YES 13350168 MFLD FLD88,LTH=3,ATTR=YES 13400168 MFLD FLD89,LTH=11,ATTR=YES 13450168 MFLD FLD90,LTH=29,ATTR=YES 13500168 MFLD FLD91,LTH=3,ATTR=YES 13550168 MFLD FLD92,LTH=11,ATTR=YES 13600168 MFLD FLD93,LTH=29,ATTR=YES 13650168 MFLD FLD94,LTH=3,ATTR=YES 13700168 MFLD FLD95,LTH=11,ATTR=YES 13750168 MFLD FLD96,LTH=29,ATTR=YES 13800168 MFLD FLD97,LTH=3,ATTR=YES 13850168 MFLD FLD98,LTH=11,ATTR=YES 13900168 MFLD FLD99,LTH=29,ATTR=YES 13950168 MFLD FLD100,LTH=3,ATTR=YES 14000168 MFLD FLD101,LTH=11,ATTR=YES 14050168 MFLD FLD102,LTH=29,ATTR=YES 14100168 MFLD FLD103,LTH=3,ATTR=YES 14150168 MFLD FLD104,LTH=11,ATTR=YES 14200168 MFLD FLD105,LTH=29,ATTR=YES 14250168 MFLD FLD106,LTH=3,ATTR=YES 14300168 MFLD FLD107,LTH=11,ATTR=YES 14350168 MFLD FLD108,LTH=29,ATTR=YES 14400168 MFLD FLD109,LTH=3,ATTR=YES 14450168 MFLD FLD110,LTH=11,ATTR=YES 14500168 MFLD FLD111,LTH=29,ATTR=YES 14550168 MFLD FLD112,LTH=3,ATTR=YES 14600168 MFLD FLD113,LTH=11,ATTR=YES 14650168 MFLD FLD114,LTH=29,ATTR=YES 14700168 MFLD FLD115,LTH=3,ATTR=YES 14750168 MFLD FLD116,LTH=11,ATTR=YES 14800168 MFLD FLD117,LTH=29,ATTR=YES 14850168 MFLD FLD118,LTH=3,ATTR=YES 14900168 MFLD FLD119,LTH=11,ATTR=YES 14950168 MFLD FLD120,LTH=29,ATTR=YES 15000168 MFLD FLD121,LTH=3,ATTR=YES 15050168 MFLD FLD122,LTH=11,ATTR=YES 15100168 MFLD FLD123,LTH=29,ATTR=YES 15150168 MFLD FLD124,LTH=3,ATTR=YES 15200168 MFLD FLD125,LTH=11,ATTR=YES 15250168 MFLD FLD126,LTH=29,ATTR=YES 15300168 MFLD FLD127,LTH=3,ATTR=YES 15350168 MFLD FLD128,LTH=11,ATTR=YES 15400168 MFLD FLD129,LTH=29,ATTR=YES 15450168 MFLD FLD130,LTH=3,ATTR=YES 15500168 MFLD FLD131,LTH=11,ATTR=YES 15550168 MFLD FLD132,LTH=29,ATTR=YES 15600168 MFLD FLD133,LTH=3,ATTR=YES 15650168 MFLD FLD134,LTH=11,ATTR=YES 15700168 MFLD FLD135,LTH=29,ATTR=YES 15750168 MSGEND 15800168 BNGII327 MSG TYPE=INPUT,OPT=1,SOR=BNGI32 15850168 SEG1 SEG 15900168 MFLD FLD1,LTH=5,FILL=C' ' 15950168 MFLD FLD2,LTH=29,FILL=C' ' 16000168 MFLD FLD3,LTH=4,FILL=C' ' 16050168 MFLD FLD5,LTH=1,FILL=C' ' 16100168 MFLD FLD7,LTH=20,FILL=C' ' 16150168 MFLD FLD9,LTH=1,FILL=C' ' 16200168 MFLD FLD11LG,LTH=15,FILL=NULL 16250168 MFLD FLD11SM,LTH=15,FILL=NULL 16300168 MFLD FLD17,LTH=9,FILL=NULL 16350168 MFLD FLD20,LTH=9,FILL=NULL 16400168 MFLD FLD23,LTH=9,FILL=NULL 16450168 MFLD FLD26,LTH=9,FILL=NULL 16500168 MFLD FLD29,LTH=9,FILL=NULL 16550168 MFLD FLD32,LTH=9,FILL=NULL 16600168 MFLD FLD35,LTH=9,FILL=NULL 16650168 MFLD FLD38,LTH=9,FILL=NULL 16700168 MFLD FLD41,LTH=9,FILL=NULL 16750168 MFLD FLD44,LTH=9,FILL=NULL 16800168 MFLD FLD47,LTH=9,FILL=NULL 16850168 MFLD FLD50,LTH=9,FILL=NULL 16900168 MFLD FLD53,LTH=9,FILL=NULL 16950168 MFLD FLD56,LTH=9,FILL=NULL 17000168 MFLD FLD59,LTH=9,FILL=NULL 17050168 MFLD FLD62,LTH=9,FILL=NULL 17100168 MFLD FLD65,LTH=9,FILL=NULL 17150168 MFLD FLD68,LTH=9,FILL=NULL 17200168 MFLD FLD71,LTH=9,FILL=NULL 17250168 MFLD FLD74,LTH=9,FILL=NULL 17300168 MFLD FLD77,LTH=9,FILL=NULL 17350168 MFLD FLD80,LTH=9,FILL=NULL 17400168 MFLD FLD83,LTH=9,FILL=NULL 17450168 MFLD FLD86,LTH=9,FILL=NULL 17500168 MFLD FLD89,LTH=9,FILL=NULL 17550168 MFLD FLD92,LTH=9,FILL=NULL 17600168 MFLD FLD95,LTH=9,FILL=NULL 17650168 MFLD FLD98,LTH=9,FILL=NULL 17700168 MFLD FLD101,LTH=9,FILL=NULL 17750168 MFLD FLD104,LTH=9,FILL=NULL 17800168 MFLD FLD107,LTH=9,FILL=NULL 17850168 MFLD FLD110,LTH=9,FILL=NULL 17900168 MFLD FLD113,LTH=9,FILL=NULL 17950168 MFLD FLD116,LTH=9,FILL=NULL 18000168 MFLD FLD119,LTH=9,FILL=NULL 18050168 MFLD FLD122,LTH=9,FILL=NULL 18100168 MFLD FLD125,LTH=9,FILL=NULL 18150168 MFLD FLD128,LTH=9,FILL=NULL 18200168 MFLD FLD131,LTH=9,FILL=NULL 18250168 MFLD FLD134,LTH=9,FILL=NULL 18300168 MSGEND 18350168 END 18400168