*********************************************************************** 00050007 * * 00100007 * MODULE NAME = BNGISLC2 * 00150007 * * 00200007 * DESCRIPTIVE NAME = IMS DEMF 'LOCAL & REMOTE TEXT' SCREEN MODULE * 00250007 * * 00300007 * COPYRIGHT = NONE * 00350007 * * 00400007 * STATUS = RELEASE 1, LEVEL 1 * 00450007 * * 00500007 * FUNCTION = DEFINES THE FORMAT OF 'LOCAL & REMOTE TEXT' SCREEN USING * 00550007 * BOTH MESSAGE INPUT DESCRIPTOR (MID) AND MESSAGE OUTPUT * 00600007 * DESCRIPTOR (MOD) FOR THE IMS APPLICATION PROGRAMS, * 00650007 * BNGILOCL AND BNGIRMOT. * 00700007 * * 00750007 * NOTES = NONE * 00800007 * * 00850007 * DEPENDENCIES = NONE * 00900007 * * 00950007 * RESTRICTIONS = NONE * 01000007 * * 01050007 * REGISTER CONVENTIONS = NONE * 01100007 * * 01150007 * PATCH LABEL = NONE * 01200007 * * 01250007 * MODULE TYPE = IMS SCREEN * 01300007 * * 01350007 * PROCESSOR = ASSEMBLER H * 01400007 * * 01450007 * MODULE SIZE = 846 DECIMAL BYTES (FOR 3277 MODEL 2) * 01500007 * = 398 DECIMAL BYTES (FOR 3277 MODEL 1) * 01550007 * * 01600007 * ATTRIBUTES = SERIALLY REUSABLE * 01650007 * * 01700007 * ENTRY POINT = BNGIL2 * 01750007 * * 01800007 * PURPOSE = SEE FUNCTION * 01850007 * * 01900007 * LINKAGE = MESSAGE INPUT DESCRIPTOR (MID) NAME : BNGIILC2 * 01950007 * MESSAGE OUTPUT DESCRIPTOR (MOD) NAME : BNGIOLC2 * 02000007 * * 02050007 * EXIT-NORMAL = NONE * 02100007 * * 02150007 * EXIT-ERROR = NONE * 02200007 * * 02250007 * EXTERNAL REFERENCE = NONE * 02300007 * * 02350007 * ROUTINES = NONE * 02400007 * * 02450007 * DATA AREAS = N/A * 02500007 * * 02550007 * CONTROL BLOCK = NONE * 02600007 * * 02650007 * TABLES = NONE * 02700007 * * 02750007 * MACROS = PRINT, FMT, DIV, DPAGE, DFLD, DEV, FMTEND, MSG, SEG, * 02800007 * MFLD, MSGEND * 02850007 * * 02900007 * CHANGE ACTIVITIES AS FOLLOWS: * 02950007 * CHANGE 01 11/15/77 PROLOGUE ADDED * 02950107 * C043000-043500,052000 @OY21567 02950207 * A040000 @OY21567 02950307 *DUMMY APAR TO CORRECT PREREQ STRINGS ON PREVIOUS PTF'S @OZ36693 02950407 * C043300,052100 @OZ37607 02950500 * * 03050007 *********************************************************************** 03100007 PRINT NOGEN 03150007 BNGIL2 FMT 03200007 DEV TYPE=(3270,2),FEAT=(IGNORE) 03250007 DIV TYPE=INOUT 03300007 DPAGE FILL=PT,CURSOR=((6,21)) 03350007 FLD1 DFLD POS=(6,22),LTH=11,ATTR=(MOD,PROT,HI,NUM) 03400007 FLD2 DFLD POS=(6,34),LTH=27,ATTR=(PROT,ALPHA,HI) 03450007 FLD3 DFLD POS=(8,22),LTH=7,ATTR=(PROT,NUM,HI) 03500007 FLD7 DFLD POS=(8,30),LTH=31,ATTR=(PROT,NUM) 03550007 FLD11 DFLD POS=(9,21),LTH=40,ATTR=(PROT,NUM) 03600007 FLD15 DFLD POS=(10,21),LTH=40,ATTR=(PROT,NUM) 03650007 FLD19 DFLD POS=(11,21),LTH=40,ATTR=(PROT,NUM) 03700007 FLD23 DFLD POS=(12,21),LTH=40,ATTR=(PROT,NUM) 03750007 FLD27 DFLD POS=(13,21),LTH=40,ATTR=(PROT,NUM) 03800007 FLD31 DFLD POS=(14,21),LTH=40,ATTR=(PROT,NUM) 03850007 FLD35 DFLD POS=(15,21),LTH=40,ATTR=(PROT,NUM) 03900007 FLD39 DFLD POS=(16,21),LTH=40,ATTR=(PROT,NUM) 03950007 FLD43 DFLD POS=(17,21),LTH=40,ATTR=(PROT,NUM) 04000007 FLD47 DFLD POS=(18,21),LTH=40,ATTR=(PROT,NUM) @OY21567 04020007 DEV TYPE=(3270,1),FEAT=(IGNORE) 04050007 DIV TYPE=INOUT 04100007 DPAGE FILL=PT,CURSOR=((1,2)) 04150007 FLD1 DFLD POS=(1,2),LTH=11,ATTR=(MOD,PROT,HI,NUM) 04200007 FLD2 DFLD POS=(1,14),LTH=27,ATTR=(PROT,ALPHA,HI) 04250007 FLD3 DFLD POS=(2,2),LTH=7,ATTR=(PROT,NUM,HI) @OY21567 04300007 FLD7SM DFLD POS=(2,10),LTH=431,ATTR=(PROT,NUM) @OZ37607 04330000 FMTEND 04400007 BNGIOLC2 MSG TYPE=OUTPUT,OPT=1,NXT=BNGIILC2,SOR=(BNGIL2,IGNORE) 04450007 SEG1 SEG 04500007 MFLD FLD1,LTH=11 04550007 MFLD FLD2,LTH=27 04600007 MFLD FLD3,LTH=7 04650007 MFLD FLD7,LTH=31 04700007 MFLD FLD11,LTH=40 04750007 MFLD FLD15,LTH=40 04800007 MFLD FLD19,LTH=40 04850007 MFLD FLD23,LTH=40 04900007 MFLD FLD27,LTH=40 04950007 MFLD FLD31,LTH=40 05000007 MFLD FLD35,LTH=40 05050007 MFLD FLD39,LTH=40 05100007 MFLD FLD43,LTH=40 05150007 MFLD FLD47,LTH=40 @OY21567 05200007 MFLD FLD7SM,LTH=431 @OZ37607 05210000 MSGEND 05250007 BNGIILC2 MSG TYPE=INPUT,OPT=1,SOR=BNGIL2 05300007 SEG1 SEG 05350007 MFLD FLD1,LTH=11,FILL=C' ' 05400007 MSGEND 05450007 END 05500007