*********************************************************************** 00050068 * * 00100068 * MODULE NAME = BNGISERR * 00150068 * * 00200068 * DESCRIPTIVE NAME = IMS DEMF SCREEN FORMAT MODULE FOR ERROR MESSAGE * 00250068 * DISPLAY * 00300068 * * 00350068 * COPYRIGHT = NONE * 00400068 * * 00450068 * STATUS = RELEASE 1, LEVEL 1 * 00500068 * * 00550068 * FUNCTION = DEFINES THE FORMAT OF 'ERROR MSG' DISPLAY SCREEN USING * 00600068 * BOTH MESSAGE INPUT DESCRIPTOR (MID) AND MESSAGE OUTPUT * 00650068 * DESCRIPTOR (MOD) FOR IMS APPLICATION PROGRAM. * 00700068 * * 00750068 * NOTES = NONE * 00800068 * * 00850068 * DEPENDENCIES = NONE * 00900068 * * 00950068 * RESTRICTIONS = NONE * 01000068 * * 01050068 * REGISTER CONVENTIONS = NONE * 01100068 * * 01150068 * PATCH LABEL = NONE * 01200068 * * 01250068 * MODULE TYPE = IMS SCREEN * 01300068 * * 01350068 * PROCESSOR = ASSEMBLER H * 01400068 * * 01450068 * MODULE SIZE = 480 DECIMAL BYTES (FOR 3277 MODEL 2) * 01500068 * = 470 DECIMAL BYTES (FOR 3277 MODEL 1) * 01550068 * * 01600068 * ATTRIBUTES = SERIALLY REUSABLE * 01650068 * * 01700068 * ENTRY POINT = BNGIER * 01750068 * * 01800068 * PURPOSE = SEE FUNCTION * 01850068 * * 01900068 * LINKAGE = MESSAGE INPUT DESCRIPTOR (MID) NAME : BNGIIERR * 01950068 * MESSAGE OUTPUT DESCRIPTOR (MOD) NAME : BNGIOERR * 02000068 * * 02050068 * EXIT-NORMAL = NONE * 02100068 * * 02150068 * EXIT-ERROR = NONE * 02200068 * * 02250068 * EXTERNAL REFERENCE = NONE * 02300068 * * 02350068 * ROUTINES = NONE * 02400068 * * 02450068 * DATA AREAS = N/A * 02500068 * * 02550068 * CONTROL BLOCK = NONE * 02600068 * * 02650068 * TABLES = NONE * 02700068 * * 02750068 * MACROS = PRINT, FMT, DIV, DPAGE, DFLD, DEV, FMTEND, MSG, SEG, * 02800068 * MFLD, MSGEND * 02850068 * * 02900068 * CHANGE ACTIVITIES AS FOLLOWS: * 02950068 * CHANGE 01 11/15/77 PROLOGUE ADDED * 03000068 * * 03050068 *********************************************************************** 03100068 PRINT NOGEN 98299968 BNGIER FMT 98349968 DEV TYPE=(3270,2),FEAT=(IGNORE) 98399968 DIV TYPE=INOUT 98449968 DPAGE FILL=NONE,CURSOR=((1,7)) 98499968 FLD1 DFLD POS=(1,2),LTH=4,ATTR=(MOD,NUM,PROT) 98549968 FLD2 DFLD POS=(1,7),LTH=29 98599968 D2 DFLD POS=(1,37),LTH=4,ATTR=(PROT,NUM) 98649968 FLD3 DFLD POS=(2,2),LTH=39,ATTR=(PROT,NUM) 98699968 FLD4 DFLD POS=(3,2),LTH=39,ATTR=(PROT,NUM) 98749968 FLD5 DFLD POS=(4,2),LTH=39,ATTR=(PROT,NUM) 98799968 DEV TYPE=(3270,1),FEAT=(IGNORE) 98849968 DIV TYPE=INOUT 98899968 DPAGE FILL=NONE,CURSOR=((1,7)) 98949968 FLD1 DFLD POS=(1,2),LTH=4,ATTR=(MOD,NUM,PROT) 98999968 FLD2 DFLD POS=(1,7),LTH=29 99049968 D2 DFLD POS=(1,37),LTH=4,ATTR=(NUM,PROT) 99099968 FLD3 DFLD POS=(2,2),LTH=39,ATTR=(PROT,NUM) 99103968 FLD4 DFLD POS=(3,2),LTH=39,ATTR=(PROT,NUM) 99107968 FLD5 DFLD POS=(4,2),LTH=39,ATTR=(PROT,NUM) 99111968 FMTEND 99115968 BNGIOERR MSG TYPE=OUTPUT,OPT=1,NXT=BNGIIERR,SOR=(BNGIER,IGNORE) 99119968 SEG1 SEG 99123968 MFLD (FLD1,'DEMF') 99127968 MFLD FLD3,LTH=39 99131968 MFLD FLD4,LTH=39 99135968 MFLD FLD5,LTH=39 99149968 MSGEND 99199968 BNGIIERR MSG TYPE=INPUT,OPT=1,SOR=BNGIER 99209968 SEG1 SEG 99249968 MFLD FLD1,LTH=5,FILL=C' ' 99349968 MFLD FLD2,LTH=29,FILL=C' ' 99399968 MSGEND 99449968 END 99499968