*********************************************************************** 00000168 * * 00000268 * MODULE NAME = BNGISMN1 * 00000368 * * 00000468 * DESCRIPTIVE NAME = IMS DEMF 'PAGE 1 MENU' SCREEN FORMAT MODULE * 00000568 * * 00000668 * COPYRIGHT = NONE * 00000768 * * 00000868 * STATUS = RELEASE 1, LEVEL 1 * 00000968 * * 00001068 * FUNCTION = DEFINES THE FORMAT OF 'PAGE 1 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 = 1323 DECIMAL BYTES (FOR 3277 MODEL 2) * 00003068 * = 1208 DECIMAL BYTES (FOR 3277 MODEL 1) * 00003168 * * 00003268 * ATTRIBUTES = SERIALLY REUSABLE * 00003368 * * 00003468 * ENTRY POINT = BNGIM1 * 00003568 * * 00003668 * PURPOSE = SEE FUNCTION * 00003768 * * 00003868 * LINKAGE = MESSAGE INPUT DESCRIPTOR (MID) NAME : BNGIIMN1 * 00003968 * MESSAGE OUTPUT DESCRIPTOR (MOD) NAME : BNGIOMN1 * 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 00006368 BNGIM1 FMT 00006468 DEV TYPE=(3270,2),FEAT=(IGNORE) 00006568 DIV TYPE=INOUT 00006668 DPAGE FILL=NONE,CURSOR=((9,24)) 00006768 FLD6 DFLD POS=(6,22),LTH=4,ATTR=(MOD,PROT,NUM) 00006868 FLD7 DFLD POS=(6,27),LTH=29 00006968 FLD8 DFLD POS=(6,57),LTH=4,ATTR=(MOD,PROT,NUM) 00007068 DFLD 'IMS VERSION',POS=(7,22),ATTR=(PROT,ALPHA) 00007168 DFLD 'PAGE 1 OF 2',POS=(7,50),ATTR=(PROT,ALPHA) 00007268 DFLD 'TYPE IN COMMAND OR X IN ? TO DISPLAY:', *00007368 POS=(8,22),ATTR=(PROT,ALPHA) 00007468 DFLD '(',POS=(9,22),ATTR=(PROT,ALPHA) 00007568 FLD9 DFLD POS=(9,24),LTH=1 00007668 DFLD ')ALL RECAP OF ERRS ON ALL LINES', *00007768 POS=(9,26),ATTR=(PROT,ALPHA) 00007868 DFLD '(',POS=(10,22),ATTR=(PROT,ALPHA) 00007968 FLD10 DFLD POS=(10,24),LTH=1 00008068 DFLD ')3270 ERR DATA ON YOUR TERMINAL', *00008168 POS=(10,26),ATTR=(PROT,ALPHA) 00008268 DFLD '(',POS=(11,22),ATTR=(PROT,ALPHA) 00008368 FLD11 DFLD POS=(11,24),LTH=1 00008468 DFLD ')REMOTE TEXT OF REMOTE 327X STATUS', *00008568 POS=(11,26),ATTR=(PROT,ALPHA) 00008668 DFLD 'AND SENSE COMBINATIONS',POS=(12,37),ATTR=(PROT,ALPHA) 00008768 DFLD '(',POS=(13,22),ATTR=(PROT,ALPHA) 00008868 FLD12 DFLD POS=(13,24),LTH=1 00008968 DFLD ')LOCAL TEXT OF LOCAL 327X STATUS', *00009068 POS=(13,26),ATTR=(PROT,ALPHA) 00009168 DFLD 'AND SENSE COMBINATIONS',POS=(14,37),ATTR=(PROT,ALPHA) 00009268 FLD13 DFLD POS=(15,22),LTH=7,ATTR=(PROT,ALPHA,MOD) 96099968 DFLD ' ENTER FOR PAGE 2--CONTAINS', *96149968 POS=(15,30),ATTR=(PROT,ALPHA) 96199968 DFLD 'COMMAND FORMATS USED TO DIRECTLY', *96249968 POS=(16,26),ATTR=(PROT,ALPHA) 96257968 DFLD 'ADDRESS A LINE, CTRL UNIT, OR TERML', *96265968 POS=(17,26),ATTR=(PROT,ALPHA) 96273968 DEV TYPE=(3270,1),FEAT=(IGNORE) 96281968 DIV TYPE=INOUT 96299968 DPAGE FILL=NONE,CURSOR=((4,4)) 96349968 FLD6 DFLD POS=(1,2),LTH=4,ATTR=(MOD,PROT,NUM) 96399968 FLD7 DFLD POS=(1,7),LTH=29 96449968 FLD8 DFLD POS=(1,37),LTH=4,ATTR=(MOD,PROT,NUM) 96499968 DFLD 'IMS VERSION',POS=(2,2),ATTR=(PROT,ALPHA) 96507968 DFLD 'PAGE 1 OF 2',POS=(2,30),ATTR=(PROT,ALPHA) 96515968 DFLD 'TYPE IN COMMAND OR X IN ? TO DISPLAY:', *96523968 POS=(3,2),ATTR=(PROT,ALPHA) 96531968 DFLD '(',POS=(4,2),ATTR=(PROT,ALPHA) 96549968 FLD9 DFLD POS=(4,4),LTH=1 96599968 DFLD ')ALL RECAP OF ERRS ON ALL LINES', *96649968 POS=(4,6),ATTR=(PROT,ALPHA) 96699968 DFLD '(',POS=(5,2),ATTR=(PROT,ALPHA) 96749968 FLD10 DFLD POS=(5,4),LTH=1 96757968 DFLD ')3270 ERR DATA ON YOUR TERMINAL', *96765968 POS=(5,6),ATTR=(PROT,ALPHA) 96773968 DFLD '(',POS=(6,2),ATTR=(PROT,ALPHA) 96781968 FLD11 DFLD POS=(6,4),LTH=1 96799968 DFLD ')REMOTE TEXT OF REMOTE 327X STATUS', *96849968 POS=(6,6),ATTR=(PROT,ALPHA) 96899968 DFLD 'AND SENSE COMBINATIONS',POS=(7,15),ATTR=(PROT,ALPHA) 96949968 DFLD '(',POS=(8,2),ATTR=(PROT,ALPHA) 96999968 FLD12 DFLD POS=(8,4),LTH=1 97007968 DFLD ')LOCAL TEXT OF LOCAL 327X STATUS', *97015968 POS=(8,6),ATTR=(PROT,ALPHA) 97023968 DFLD 'AND SENSE COMBINATIONS',POS=(9,15),ATTR=(PROT,ALPHA) 97031968 FLD13 DFLD POS=(10,2),LTH=7,ATTR=(PROT,ALPHA,MOD) 97049968 DFLD ' ENTER FOR PAGE 2--CONTAINS', *97099968 POS=(10,10),ATTR=(PROT,ALPHA) 97149968 DFLD 'COMMAND FORMATS USED TO DIRECTLY', *97199968 POS=(11,6),ATTR=(PROT,ALPHA) 97249968 DFLD 'ADDRESS A LINE, CTRL UNIT, OR TERML', *97257968 POS=(12,6),ATTR=(PROT,ALPHA) 97265968 FMTEND 97273968 BNGIOMN1 MSG TYPE=OUTPUT,OPT=1,NXT=BNGIIMN1,SOR=(BNGIM1,IGNORE), *97281968 FILL=C' ' 97299968 SEG1 SEG 97349968 MFLD (FLD6,'DEMF') 97399968 MFLD (FLD8,'MENU') 97449968 MFLD (FLD9,'?') 97499968 MFLD (FLD10,'?') 97507968 MFLD (FLD11,'?') 97515968 MFLD (FLD12,'?') 97523968 MFLD (FLD13,'DEPRESS') 97531968 MSGEND 97549968 BNGIIMN1 MSG TYPE=INPUT,OPT=1,SOR=BNGIM1 97559968 SEG1 SEG 97599968 MFLD FLD6,LTH=5,FILL=C' ' 97699968 MFLD FLD7,LTH=29,FILL=C' ' 97749968 MFLD FLD8,LTH=4,FILL=C' ' 97757968 MFLD FLD9,LTH=1,FILL=C' ' 97765968 MFLD FLD10,LTH=1,FILL=C' ' 97773968 MFLD FLD11,LTH=1,FILL=C' ' 97781968 MFLD FLD12,LTH=1,FILL=C' ' 97799968 MFLD FLD13,LTH=7,FILL=C' ' 97849968 MSGEND 97899968 END 97949968