*********************************************************************** 00000168 * * 00000268 * MODULE NAME = BNGISMN2 * 00000368 * * 00000468 * DESCRIPTIVE NAME = IMS DEMF 'PAGE 2 MENU' SCREEN FORMAT MODULE * 00000568 * * 00000668 * COPYRIGHT = NONE * 00000768 * * 00000868 * STATUS = RELEASE 1, LEVEL 1 * 00000968 * * 00001068 * FUNCTION = DEFINES THE FORMAT OF 'PAGE 2 MENU' DISPLAY SCREEN USING * 00001168 * BOTH MESSAGE INPUT DESCRIPTOR (MID) AND MESSAGE OUTPUT * 00001268 * DESCRIPTOR (MOD) FOR THE IMS APPLICATION PROGRAM, * 00001368 * BNGIMENU. * 00001468 * * 00001568 * NOTES = NONE * 00001668 * * 00001768 * DEPENDENCIES = NONE * 00001868 * * 00001968 * RESTRICTIONS = NONE * 00002068 * * 00002168 * REGISTER CONVENTIONS = NONE * 00002268 * * 00002368 * PATCH LABEL = NONE * 00002468 * * 00002568 * MODULE TYPE = IMS SCREEN * 00002668 * * 00002768 * PROCESSOR = ASSEMBLER H * 00002868 * * 00002968 * MODULE SIZE = 1277 DECIMAL BYTES (FOR 3277 MODEL 2) * 00003068 * = 920 DECIMAL BYTES (FOR 3277 MODEL 1) * 00003168 * * 00003268 * ATTRIBUTES = SERIALLY REUSABLE * 00003368 * * 00003468 * ENTRY POINT = BNGIM2 * 00003568 * * 00003668 * PURPOSE = SEE FUNCTION * 00003768 * * 00003868 * LINKAGE = MESSAGE INPUT DESCRIPTOR (MID) NAME : BNGIIMN2 * 00003968 * MESSAGE OUTPUT DESCRIPTOR (MOD) NAME : BNGIOMN2 * 00004068 * * 00004168 * EXIT-NORMAL = NONE * 00004268 * * 00004368 * EXIT-ERROR = NONE * 00004468 * * 00004568 * EXTERNAL REFERENCE = NONE * 00004668 * * 00004768 * ROUTINES = NONE * 00004868 * * 00004968 * DATA AREAS = N/A * 00005068 * * 00005168 * CONTROL BLOCK = NONE * 00005268 * * 00005368 * TABLES = NONE * 00005468 * * 00005568 * MACROS = PRINT, FMT, DIV, DPAGE, DFLD, DEV, FMTEND, MSG, SEG, * 00005668 * MFLD, MSGEND * 00005768 * * 00005868 * CHANGE ACTIVITIES AS FOLLOWS: * 00005968 * CHANGE 01 11/15/77 PROLOGUE ADDED * 00006068 * * 00006168 *********************************************************************** 00006268 PRINT NOGEN 00013768 BNGIM2 FMT 00013868 DEV TYPE=(3270,2),FEAT=(IGNORE) 00013968 DIV TYPE=INOUT 00014068 DPAGE FILL=NONE,CURSOR=((1,7)) 00014168 FLD1 DFLD POS=(1,2),LTH=4,ATTR=(MOD,PROT,NUM) 00014268 FLD2 DFLD POS=(1,7),LTH=29 00014368 FLD3 DFLD POS=(1,37),LTH=4,ATTR=(PROT,NUM,MOD) 00014468 DFLD 'IMS VERSION',POS=(2,1),ATTR=(PROT,ALPHA) 00014568 DFLD 'PAGE 2 OF 2',POS=(2,70),ATTR=(PROT,ALPHA) 00014668 DFLD 'KEY IN:',POS=(3,3),ATTR=(PROT,ALPHA) 00014768 DFLD 'YOU WILL SEE:',POS=(3,25),ATTR=(PROT,ALPHA) 00014868 DFLD 'DEMF LINE LLL',POS=(4,1),ATTR=(PROT,ALPHA) 00014968 DFLD 'ERRS BY CONTROL UNIT ON SELECTED LINE LLL', *00015068 POS=(4,23),ATTR=(PROT,ALPHA) 00015168 DFLD 'DEMF CTRL LLL CC',POS=(5,1),ATTR=(PROT,ALPHA) 00015268 DFLD 'ERRS BY TERMINAL ON REMOTE CONTROL UNIT LLL CC', *00015368 POS=(5,23),ATTR=(PROT,ALPHA) 00015468 DFLD 'DEMF CTRL CCC',POS=(6,1),ATTR=(PROT,ALPHA) 00015568 DFLD 'ERRS BY TERMINAL ON LOCAL CONTROL UNIT CCC', *00015668 POS=(6,23),ATTR=(PROT,ALPHA) 00015768 DFLD 'DEMF 3270 LLL CC TT ERR DESCRIPTIVE DATA OF REMOTE TE*00015868 RMINAL LLL CC TT',POS=(7,1),ATTR=(PROT,ALPHA) 00015968 DFLD 'DEMF 3270 TTT',POS=(8,1),ATTR=(PROT,ALPHA) 00016068 DFLD 'ERR DESCRIPTIVE DATA OF LOCAL TERMINAL TTT', *00016168 POS=(8,23),ATTR=(PROT,ALPHA) 00016268 DFLD 'DEMF 3270 SYMBNAME ERR DESCRIPTIVE DATA OF LOCAL OR *00016368 REMOTE TERMINAL',POS=(9,1),ATTR=(PROT,ALPHA) 00016468 DFLD 'WITH IMS NAME',POS=(10,23),ATTR=(PROT,ALPHA) 00016568 DFLD 'TYPE X IN PLACE OF ? ON ALL DISPLAYS TO PAGE OR VIEW LO*00016668 WER LEVEL OF DETAIL',POS=(11,1),ATTR=(PROT,ALPHA) 00016768 DEV TYPE=(3270,1),FEAT=(IGNORE) 00016868 DIV TYPE=INOUT 00016968 DPAGE FILL=NONE,CURSOR=((1,7)) 00017068 FLD1 DFLD POS=(1,2),LTH=4,ATTR=(MOD,PROT,NUM) 00017168 FLD2 DFLD POS=(1,7),LTH=29 00017268 FLD3 DFLD POS=(1,37),LTH=4,ATTR=(PROT,NUM,MOD) 00021268 DFLD 'IMS VERSION',POS=(2,2),ATTR=(PROT,ALPHA) 00025268 DFLD 'PAGE 2 OF 2',POS=(2,30),ATTR=(PROT,ALPHA) 00029268 DFLD 'KEY IN:',POS=(3,3),ATTR=(PROT,ALPHA) 00029768 DFLD 'YOU WILL SEE:',POS=(3,25),ATTR=(PROT,ALPHA) 00030268 DFLD 'DEMF LINE LLL',POS=(4,1),ATTR=(PROT,ALPHA) 00030768 DFLD 'ERRS BY CONTRL UNIT', *00031268 POS=(4,21),ATTR=(PROT,ALPHA) 00031768 DFLD 'DEMF CTRL LLL CC',POS=(5,1),ATTR=(PROT,ALPHA) 00033268 DFLD 'ERRS BY REMOTE TERM', *00033768 POS=(5,21),ATTR=(PROT,ALPHA) 00034268 DFLD 'DEMF CTRL CCC',POS=(6,1),ATTR=(PROT,ALPHA) 00034768 DFLD 'ERRS BY LOCAL TERML', *00035268 POS=(6,21),ATTR=(PROT,ALPHA) 00035768 DFLD 'DEMF 3270 LLL CC TT STATUS OF RMOT TERM', *00037268 POS=(7,1),ATTR=(PROT,ALPHA) 00037768 DFLD 'DEMF 3270 TTT',POS=(8,1),ATTR=(PROT,ALPHA) 00038268 DFLD 'STATUS OF LOCL TERM', *00038768 POS=(8,21),ATTR=(PROT,ALPHA) 00039268 DFLD 'DEMF 3270 SYMBNAME STATUS OF RMT OR LOC', *00039768 POS=(9,1),ATTR=(PROT,ALPHA) 00041268 DFLD 'WITH IMS NAME',POS=(10,21),ATTR=(PROT,ALPHA) 00041868 DFLD 'TYPE X IN PLACE OF ? ON ALL DISPLAYS TO', *00042468 POS=(11,1),ATTR=(PROT,ALPHA) 00043068 DFLD 'PAGE OR VIEW LOWER LEVEL OR DETAIL', *00043668 POS=(12,1),ATTR=(PROT,ALPHA) 00045268 FMTEND 00045768 BNGIOMN2 MSG TYPE=OUTPUT,OPT=1,NXT=BNGIIMN2,SOR=(BNGIM2,IGNORE), *00046268 FILL=C' ' 00046768 SEG1 SEG 00047268 MFLD (FLD1,'DEMF') 00047768 MFLD (FLD3,'MENU') 00049268 MSGEND 00050268 BNGIIMN2 MSG TYPE=INPUT,OPT=1,SOR=BNGIM2 00051268 SEG1 SEG 00053268 MFLD FLD1,LTH=5,FILL=C' ' 00053768 MFLD FLD2,LTH=29,FILL=C' ' 00054268 MFLD FLD3,LTH=4,FILL=C' ' 00054768 MSGEND 00055268 END 00055768