*********************************************************************** 00000168 * * 00000268 * MODULE NAME = BNGISBIT * 00000368 * * 00000468 * DESCRIPTIVE NAME = IMS DEMF SCREEN FORMAT MODULE FOR BITS PROMPTER * 00000568 * DISPLAY * 00000668 * * 00000768 * COPYRIGHT = NONE * 00000868 * * 00000968 * STATUS = RELEASE 1, LEVEL 1 * 00001068 * * 00001168 * FUNCTION = DEFINES THE FORMAT OF 'BITS PROMPTER' DISPLAY SCREEN * 00001268 * USING BOTH MESSAGE INPUT DESCRIPTOR (MID) AND MESSAGE * 00001368 * OUTPUT DESCRIPTOR (MOD) FOR THE IMS APPLICATION PROGRAM * 00001468 * (BNGI3270). * 00001568 * * 00001668 * NOTES = NONE * 00001768 * * 00001868 * DEPENDENCIES = NONE * 00001968 * * 00002068 * RESTRICTIONS = NONE * 00002168 * * 00002268 * REGISTER CONVENTIONS = NONE * 00002368 * * 00002468 * PATCH LABEL = NONE * 00002568 * * 00002668 * MODULE TYPE = IMS SCREEN * 00002768 * * 00002868 * PROCESSOR = ASSEMBLER H * 00002968 * * 00003068 * MODULE SIZE = 1249 DECIMAL BYTES (FOR 3277 MODEL 2) * 00003168 * = 979 DECIMAL BYTES (FOR 3277 MODEL 1) * 00003268 * * 00003368 * ATTRIBUTES = SERIALLY REUSABLE * 00003468 * * 00003568 * ENTRY POINT = BNGIBT * 00003668 * * 00003768 * PURPOSE = SEE FUNCTION * 00003868 * * 00003968 * LINKAGE = MESSAGE INPUT DESCRIPTOR (MID) NAME : BNGIIBIT * 00004068 * MESSAGE OUTPUT DESCRIPTOR (MOD) NAME : BNGIOBIT * 00004168 * * 00004268 * EXIT-NORMAL = NONE * 00004368 * * 00004468 * EXIT-ERROR = NONE * 00004568 * * 00004668 * EXTERNAL REFERENCE = NONE * 00004768 * * 00004868 * ROUTINES = NONE * 00004968 * * 00005068 * DATA AREAS = N/A * 00005168 * * 00005268 * CONTROL BLOCK = NONE * 00005368 * * 00005468 * TABLES = NONE * 00005568 * * 00005668 * MACROS = PRINT, FMT, DIV, DPAGE, DFLD, DEV, FMTEND, MSG, SEG, * 00005768 * MFLD, MSGEND * 00005868 * * 00005968 * CHANGE ACTIVITIES AS FOLLOWS: * 00006068 * CHANGE 01 11/15/77 PROLOGUE ADDED * 00006168 * * 00006268 *********************************************************************** 00006368 PRINT NOGEN 00013768 BNGIBT FMT 00013868 DEV TYPE=(3270,2),FEAT=(IGNORE),DSCA=X'0020' 00013968 DIV TYPE=INOUT 00014068 DPAGE FILL=PT,CURSOR=((1,7)) 00014168 FLD1 DFLD POS=(1,2),LTH=4,ATTR=(MOD,NUM,PROT) 00014268 FLD2 DFLD POS=(1,7),LTH=29 00014368 FLD3 DFLD POS=(1,37),LTH=4,ATTR=(MOD,NUM,PROT) 00014468 FLD4 DFLD POS=(2,2),LTH=1,ATTR=(PROT,NUM) 00014568 FLD5 DFLD POS=(2,4),LTH=1 00014668 FLD6 DFLD POS=(2,6),LTH=14,ATTR=(PROT,NUM) 00014768 FLD6A DFLD POS=(2,21),LTH=20,ATTR=(PROT,MOD,NUM) 00014868 FLD7 DFLD POS=(2,42),LTH=1,ATTR=(PROT,NUM) 00014968 FLD8 DFLD POS=(2,44),LTH=1 00015068 FLD9 DFLD POS=(2,46),LTH=14,ATTR=(PROT,NUM) 00015168 FLD9A DFLD POS=(2,61),LTH=15,ATTR=(MOD,PROT,NUM,NODISP) 00015268 FLD9B DFLD POS=(2,77),LTH=4,ATTR=(MOD,PROT,ALPHA,NODISP) 00015368 FLD10 DFLD POS=(3,2),LTH=38,ATTR=(PROT,NUM) 00015468 FLD11 DFLD POS=(4,1),LTH=40,ATTR=(PROT,NUM) 00015568 FLD12 DFLD POS=(5,1),LTH=40,ATTR=(PROT,NUM) 00015668 FLD13 DFLD POS=(6,1),LTH=40,ATTR=(PROT,NUM) 00015768 FLD14 DFLD POS=(7,1),LTH=40,ATTR=(PROT,NUM) 00015868 FLD15 DFLD POS=(8,1),LTH=40,ATTR=(PROT,NUM) 00015968 FLD16 DFLD POS=(9,1),LTH=40,ATTR=(PROT,NUM) 00016068 FLD17 DFLD POS=(10,1),LTH=40,ATTR=(PROT,NUM) 00016168 FLD18 DFLD POS=(11,1),LTH=40,ATTR=(PROT,NUM) 00016268 DEV TYPE=(3270,1),FEAT=(IGNORE),DSCA=X'0020' 00016368 DIV TYPE=INOUT 00016468 DPAGE FILL=PT,CURSOR=((1,7)) 00016568 FLD1 DFLD POS=(1,2),LTH=4,ATTR=(MOD,NUM,PROT) 00016668 FLD2 DFLD POS=(1,7),LTH=29 00016768 FLD3 DFLD POS=(1,37),LTH=4,ATTR=(MOD,NUM,PROT) 00016868 FLD4 DFLD POS=(2,2),LTH=1,ATTR=(PROT,NUM) 00020868 FLD5 DFLD POS=(2,4),LTH=1 00024868 FLD6 DFLD POS=(2,6),LTH=14,ATTR=(PROT,NUM) 00025368 FLD6A DFLD POS=(2,21),LTH=20,ATTR=(PROT,MOD,NUM) 00025868 FLD7 DFLD POS=(3,2),LTH=1,ATTR=(PROT,NUM) 00026368 FLD8 DFLD POS=(3,4),LTH=1 00026868 FLD9 DFLD POS=(3,6),LTH=14,ATTR=(PROT,NUM) 00027368 FLD9A DFLD POS=(3,21),LTH=15,ATTR=(MOD,PROT,NUM,NODISP) 00027868 FLD9B DFLD POS=(3,37),LTH=4,ATTR=(MOD,PROT,ALPHA,NODISP) 00028868 FLD10 DFLD POS=(4,2),LTH=38,ATTR=(PROT,NUM) 00029868 FLD11SM DFLD POS=(5,1),LTH=320,ATTR=(PROT,NUM) 00030868 FMTEND 00031868 BNGIOBIT MSG TYPE=OUTPUT,OPT=1,NXT=BNGIIBIT,SOR=(BNGIBT,IGNORE) 00032868 SEG1 SEG 00036868 MFLD (FLD1,'DEMF') 00037868 MFLD (FLD3,'3270') 00040868 MFLD (FLD4,'(') 00041368 MFLD (FLD5,'?') 00041868 MFLD (FLD6,') PAGE FORWARD') 00042368 MFLD FLD6A,LTH=20 00042868 MFLD (FLD7,'(') 00043368 MFLD (FLD8,'?') 00044868 MFLD (FLD9,') PAGE BACKWRD') 00045368 MFLD FLD9A,LTH=15 00045868 MFLD (FLD9B,'BITS') 00046368 MFLD FLD10,LTH=38 00046868 MFLD FLD11,LTH=40 00047368 MFLD FLD12,LTH=40 00048868 MFLD FLD13,LTH=40 00049368 MFLD FLD14,LTH=40 00049868 MFLD FLD15,LTH=40 00050368 MFLD FLD16,LTH=40 00050868 MFLD FLD17,LTH=40 00051368 MFLD FLD18,LTH=40 00052868 MFLD FLD11SM,LTH=320 00053068 MSGEND 00053268 BNGIIBIT MSG TYPE=INPUT,OPT=1,SOR=(BNGIBT,IGNORE) 00053468 SEG1 SEG 00053668 MFLD FLD1,LTH=5,FILL=C' ' 00053868 MFLD FLD2,LTH=29,FILL=C' ' 00054068 MFLD FLD3,LTH=4,FILL=C' ' 00054268 MFLD FLD5,LTH=1,FILL=C' ' 00054468 MFLD FLD6A,LTH=20,FILL=C' ' 00054668 MFLD FLD8,LTH=1,FILL=C' ' 00054868 MFLD FLD9A,LTH=15,FILL=C' ' 00055068 MFLD FLD9B,LTH=4,FILL=C' ' 00055268 MSGEND 00055468 END 00055668