PRINT OFF 00050007 MACRO 00050407 &NAME BNGHJN &LABEL,&HJN 00050807 LCLC &HJA,&HJB 00051207 &HJA SETC '&SYSPARM'(1,4) 00051607 &HJB SETC '&SYSPARM'(5,4) 00052007 AIF ('&LABEL' EQ '').NOBRNCH 00052407 B &LABEL . BR AROUND CONSTANTS 00052807 SPACE 2 00053207 .NOBRNCH ANOP 00053607 AIF ('&NAME' EQ '').NOLABEL 00054007 DC C'&NAME' . MODULE IDENTIFIER 00054407 .NOLABEL ANOP 00054807 DC X'&HJA' . DATE OF MODIFICATION 00055207 AIF ('&HJN' NE 'HJN').DATE 00055607 DC X'&HJB' . HJN OF MODIFICATION 00056007 .DATE ANOP 00056407 AIF ('&LABEL' EQ '').NOLBL 00056807 SPACE 2 00057207 &LABEL DS 0H 00057607 .NOLBL ANOP 00058007 MEND 00058407 PRINT ON 00058807 *********************************************************************** 00059207 * * 00100007 * MODULE NAME = BNGTMENU * 00150007 * * 00200007 * DESCRIPTIVE NAME = TCAM DEMF MENU DISPLAY MODULE * 00250007 * * 00300007 * COPYRIGHT = NONE * 00350007 * * 00400007 * STATUS = RELEASE 1, LEVEL 1 * 00450007 * * 00500007 * FUNCTION = 1) DISPLAYS THE FIRST MENU SCREEN THAT OFFERS A CHOICE * 00550007 * OF ALL, 3270, REMOT OR LOCAL DISPLAYS; * 00600007 * 2) DISPLAYS THE SECOND MENU SCREEN THAT DESCRIBES THE * 00650007 * SYNTAX OF THE DEMF COMMANDS AND PARAMETERS WHICH USE * 00700007 * EXPLICIT PHYSICAL ADDRESSES OR SYMBOLIC NAMES. * 00750007 * * 00800007 * NOTES = SEE BELOW * 00850007 * * 00900007 * DEPENDENCIES = NONE * 00950007 * * 01000007 * RESTRICTIONS = NONE * 01050007 * * 01100007 * REGISTER CONVENTIONS = R10 CONTAINS ADDRESS OF INPUT MESSAGE * 01150007 * * 01200007 * PATCH LABEL = NONE * 01250007 * * 01300007 * MODULE TYPE = TCAM DISPLAY * 01350007 * * 01400007 * PROCESSOR = ASSEMBLER H * 01450007 * * 01500007 * MODULE SIZE = 2208 DECIMAL BYTES * 01550007 * * 01600007 * ATTRIBUTES = SERIALLY REUSABLE * 01650007 * * 01700007 * ENTRY POINT = BNGTMENU * 01750007 * * 01800007 * PURPOSE = SEE FUNCTION * 01850007 * * 01900007 * LINKAGE = R14 LOADED WITH THE RETURN ADDR (USED BY SUBROUTINE) * 01950007 * * 02000007 * INPUT = PARAM LIST ITEMS USED ARE : INPUT MESSAGE * 02050007 * * 02100007 * OUTPUT = PARAM LIST ITEMS USED ARE : PAGE 1 OR 2 OF MENU DISPLAY * 02150007 * * 02200007 * EXIT-NORMAL = REGISTER 15 RETURN CODE RETURNED TO CALLER : * 02250007 * 00 - OPERATION PERFORMED AS REQUESTED * 02300007 * * 02350007 * EXIT-ERROR = NONE * 02400007 * * 02450007 * EXTERNAL REFERENCE = NONE * 02500007 * * 02550007 * ROUTINES = NONE * 02600007 * * 02650007 * DATA AREAS = NONE * 02700007 * * 02750007 * CONTROL BLOCK = NONE * 02800007 * * 02850007 * TABLES = NONE * 02900007 * * 02950007 * MACROS = SAVE, RETURN * 03000007 * * 03050007 *****************CHANGE ACTIVITY FOLLOWS:****************************** 03100007 * CHANGE 01 11/15/77 PROLOGUE ADDED * 03100107 * CHANGE 02 03/02/78 BNGHJN MACRO ADDED * 03100207 *C057000-058500,040000-048500 @OZ30675 03100307 * * 03150007 * * 03200007 *********************************************************************** 03250007 TITLE 'EXCEPTION MANAGEMENT FACILITY MENU PROGRAM' 03300007 TCAMBUF DSECT 03350007 USING *,10 03400007 TIOATDL DC X'0000' TERMINAL DATA LENGHH 03450007 TCTTETT DS CL1 91= REMOTE 99 = LOCAL 03500007 TCTTETM DS CL1 F1 = MOD 1 F2 V MOD 2 03550007 TCTLERLN DS CL3 LINE ADRESS 03600007 TCTTEQU EQU TCTLERLN LOCAL LINE ADDRESS 03650007 TCTTETA DS CL1 CONTROL UNIT ADDRES 03700007 DS CL1 TERMINAL ADRESS REMOTE 03750007 TIOADBA DS CL100 TERMINAL INPUT AREA 03800007 TCTTETTI DS CL8 TCAM SYMBOLIC ADDRESS 03850007 TIOWCC DS CL1 C3 SCREEN CONTROL CHARACTER 03900007 TIOADBAO DS CL2000 TERMINAL OUTPUT AREA 03950007 BNGTDISP DSECT 03970007 DS 4F @OZ30675 04000007 USING EMFILE,3 @OZ30675 04050007 EMFILE DCB DDNAME=EMFILE,DSORG=DA,MACRF=(RIC),OPTCD=R, X04900007 RECFM=F 04950007 SAVREG DS A RETURN SAVE AREA ADDRESS 05000007 SAVAREA DS 18F BNGTDISP SAVE AREA 05050007 TCAFCAAA DS A TCAM RETURN ADDRESS 05100007 TCTTEDA DS A ADDRESS OF PASSED FIELD 05150007 TCAPCPI DC CL8'00' SYMBOLIC PROGRAM NAME TO LINK TO 05200007 TCAFCAA DS A 05250007 DS 0H 05300007 PARM1 DS D 05350007 TIOABAR EQU 5 05400007 TCTTEAR EQU 6 05450007 BNGTMENU CSECT 05500007 USING *,11 05550007 SAVE (14,12) 05600007 LR 11,15 05650007 BNGTMENU BNGHJN SKIPID @OZ30675 05700007 ST 13,SAVREG1 05900007 LA 13,SAVAREA1 05950007 LA TIOABAR,TIOADBAO LOAD OUTPUT AREA IN IO REG 06000007 ST TIOABAR,TCTTEDA THIS IS NEW OUTPUT AREA 06050007 CLC TIOADBA+15(2),=X'D1F5' (L15P22) PAGE 2 REQ FROM LARGE 06100007 BE B10 YES,BR 06150007 CLC TIOADBA+15(2),=X'C5E9' (L10P2SM) PAGE 2 REQ FROM SMALL 06200007 BNE C10 NO,BR 06250007 B10 MVC PARM1(4),=C'PAGE' MOVE PAGE TO PARM 06300007 C10 CLI TCTTETM,C'1' IS THIS A SMALL SCREEN? 06350007 BE SMALL YES. USE SMALL MENU. 06400007 CLC PARM1(4),=C'PAGE' IS THIS A PAGE 2 REQUEST 06450007 BE PAGE2LG YES,BR 06500007 LA 1,LG1LTH 06550007 LA 14,LG1MSG 06600007 EXIT LR 0,5 06650007 STH 1,TIOATDL STORE LENGTH INTO PARM 06700007 SPACE 06750007 LR 15,1 06800007 MVCL 0,14 06850007 L 13,SAVREG1 06900007 RETURN (14,12) 06950007 SMALL CLC PARM1(4),=C'PAGE' IS THIS A PAGE 2 REQUEST? 07000007 BE PAGE2SM YES. 07050007 LA 1,SM1LTH POINT TO SMALL 1 MENU 07100007 LA 14,SM1MSG 07150007 B EXIT 07200007 PAGE2SM LA 1,SM2LTH POINT TO SMALL 2 MENU 07250007 LA 14,SM2MSG 07300007 B EXIT 07350007 PAGE2LG LA 1,LG2LTH POINT TO LARGE 2 MENU 07400007 LA 14,LG2MSG 07450007 B EXIT 07500007 SAVREG1 DS A ADDRESS SAVE AREA RETURN 07550007 SAVAREA1 DS 18F BNGTMENU SAVE AREA 07600007 *********************************************************************** 07650007 SBA EQU X'11' SET BUFFER ADDRESS 07700007 SF EQU X'1D' START FIELD 07750007 IC EQU X'13' INSERT CURSOR 07800007 PNA EQU X'60' PROTECTED,NORMAL,ALPHAMERIC 07850007 PHA EQU X'E8' PROTECTED,HIGH INTENSITY,ALPHAMERIC 07900007 UNA EQU X'40' UNPROT,NORMAL,ALPHAMERIC 07950007 MNP EQU X'61' MODIFIED,NORMAL,PROTECTED,ALPHAMERIC 08000007 L1P1 EQU X'4040' LINE 1 POSITION 1 08050007 L1P35 EQU X'40E2' 08100007 L1P36 EQU X'40E3' 08150007 L2P1LG EQU X'C150' LINE 2 POSITION 1 -LARGE SCREEN 08200007 L2P29SM EQU X'C1C4' LINE 2 POSITION 29-SMALL SCREEN 08250007 L2P70 EQU X'C2D5' 08300007 L3P1SM EQU X'C150' LINE 3 POSITION 1 -SMALL SCREEN 08350007 L4P1SM EQU X'C1F8' LINE 4 POSITION 1 -SMALL SCREEN 08400007 L4P2SM EQU X'C1F9' 08450007 L4P4SM EQU X'C17B' 08500007 L4P15SM EQU X'C2C6' 08550007 L5P1SM EQU X'C260' 08600007 L5P2SM EQU X'C261' 08650007 L5P4SM EQU X'C2E3' 08700007 L5P15SM EQU X'C26E' 08750007 L6P1SM EQU X'C3C8' 08800007 L6P2SM EQU X'C3C9' 08850007 L6P4SM EQU X'C34B' 08900007 L6P15SM EQU X'C3D6' 08950007 L7P16SM EQU X'C37F' 09000007 L8P1SM EQU X'C4D8' 09050007 L8P2SM EQU X'C4D9' 09100007 L8P4SM EQU X'C45B' 09150007 L8P15SM EQU X'C4E6' 09200007 L9P16SM EQU X'C54F' 09250007 L10P1SM EQU X'C5E8' 09300007 L10P2SM EQU X'C5E9' 09350007 L10P3SM EQU X'C56A' 09400007 L10P4SM EQU X'C56B' 09450007 L11P5SM EQU X'C6D4' 09500007 L12P5SM EQU X'C67C' 09550007 L3P3LG EQU X'C2E2' 09600007 L3P25LG EQU X'C2F8' 09650007 L4P1LG EQU X'C3F0' 09700007 L4P23LG EQU X'C4C6' 09750007 L5P1LG EQU X'C540' 09800007 L5P23LG EQU X'C5D6' 09850007 L6P1LG EQU X'C650' 09900007 L6P20LG EQU X'C6E3' 09950007 L6P23LG EQU X'C6E6' 10000007 L7P1LG EQU X'C760' 10050007 L7P21LG EQU X'C7F4' 10100007 L7P23LG EQU X'C7F6' 10150007 L8P1LG EQU X'C8F0' 10200007 L8P21LG EQU X'C9C4' 10250007 L8P23LG EQU X'C9C6' 10300007 L9P1LG EQU X'4A40' 10350007 L9P21LG EQU X'4AD4' 10400007 L9P23LG EQU X'4AD6' 10450007 L10P21LG EQU X'4BE4' 10500007 L10P23LG EQU X'4BE6' 10550007 L12P1LG EQU X'4DF0' 10600007 * 10650007 L6P56 EQU X'C7C7' 10700007 L6P61 EQU X'C74C' 10750007 L7P50 EQU X'C8D1' 10800007 L9P22LG EQU X'4AD5' 10850007 L9P24LG EQU X'4AD7' 10900007 L9P35LG EQU X'4AE2' 10950007 L10P22LG EQU X'4BE5' 11000007 L10P24LG EQU X'4BE7' 11050007 L10P35LG EQU X'4BF2' 11100007 L11P21LG EQU X'4CF4' 11150007 L11P22LG EQU X'4CF5' 11200007 L11P24LG EQU X'4CF7' 11250007 L11P35LG EQU X'4DC2' 11300007 L12P36LG EQU X'4ED3' 11350007 L13P21 EQU X'4FD4' 11400007 L13P22 EQU X'4FD5' 11450007 L13P24 EQU X'4FD7' 11500007 L13P35 EQU X'4FE2' 11550007 L14P36 EQU X'50F3' 11600007 L15P21 EQU X'D1F4' 11650007 L15P22 EQU X'D1F5' 11700007 L15P23 EQU X'D1F6' 11750007 L15P24 EQU X'D1F7' 11800007 L16P25 EQU X'D3C8' 11850007 L17P25 EQU X'D4D8' 11900007 *********************************************************************** 11950007 LG1MSG DC AL1(SBA),AL2(L6P20LG),AL1(SF,MNP) 12000007 DC C'DEMF',AL1(SF,UNA),AL1(SBA),AL2(L6P56),AL1(SF,MNP) 12050007 DC C'MENU',AL1(SBA),AL2(L6P61),AL1(SF,PNA) 12100007 DC AL1(SBA),AL2(L7P21LG),C'TCAM VERSION' 12150007 DC AL1(SBA),AL2(L7P50),C'PAGE 1 OF 2' 12200007 DC AL1(SBA),AL2(L8P21LG),C'TYPE IN COMMAND OR X IN ? TO DISPLAY:' 12250007 DC AL1(SBA),AL2(L9P21LG),C'(',AL1(SBA),AL2(L9P22LG),AL1(SF,UNA) 12300007 DC AL1(IC),C'?' 12350007 DC AL1(SBA),AL2(L9P24LG),AL1(SF,PNA),C')ALL' 12400007 DC AL1(SBA),AL2(L9P35LG),C'RECAP OF ERRS ON ALL LINES' 12450007 DC AL1(SBA),AL2(L10P21LG),C'(',AL1(SBA),AL2(L10P22LG),AL1(SF,UNA),C'?' 12500007 DC AL1(SBA),AL2(L10P24LG),AL1(SF,PNA),C')3270' 12550007 DC AL1(SBA),AL2(L10P35LG),C'ERR DATA ON YOUR TERMINAL' 12600007 DC AL1(SBA),AL2(L11P21LG),C'(',AL1(SBA),AL2(L11P22LG),AL1(SF,UNA),C'?' 12650007 DC AL1(SBA),AL2(L11P24LG),AL1(SF,PNA),C')REMOTE' 12700007 DC AL1(SBA),AL2(L11P35LG),C'TEXT OF REMOTE 327X STATUS' 12750007 DC AL1(SBA),AL2(L12P36LG),C' AND SENSE COMBINATIONS' 12800007 DC AL1(SBA),AL2(L13P21),C'(',AL1(SBA),AL2(L13P22),AL1(SF,UNA),C'?' 12850007 DC AL1(SBA),AL2(L13P24),AL1(SF,PNA),C')LOCAL' 12900007 DC AL1(SBA),AL2(L13P35),C'TEXT OF LOCAL 327X STATUS' 12950007 DC AL1(SBA),AL2(L14P36),C' AND SENSE COMBINATIONS' 13000007 *DC AL1(SBA),AL2(L15P21),C' ',AL1(SBA),AL2(L15P22),AL1(SF,MNP),C' ' 13050007 DC AL1(SBA),AL2(L15P21),AL1(SF,MNP),C'DEPRESS ' 13100007 DC AL1(SF,PNA),C'ENTER FOR PAGE TWO' 13150007 DC C'--CONTAINS' 13200007 DC AL1(SBA),AL2(L16P25),C'COMMAND FORMATS USED TO DIRECTLY' 13250007 DC AL1(SBA),AL2(L17P25),C'ADDRESS A LINE, CTRL UNIT, OR TERML' 13300007 LG1LTH EQU *-LG1MSG 13350007 LG2MSG DC AL1(SBA),AL2(L1P1),AL1(SF,MNP) 13400007 DC C'DEMF',AL1(SF,UNA,IC),AL1(SBA),AL2(L1P35),AL1(SF,MNP) 13450007 DC C'MENU',AL1(SF,PNA) 13500007 DC AL1(SBA),AL2(L2P1LG),C'TCAM VERSION' 13550007 DC AL1(SBA),AL2(L2P70),C'PAGE 2 OF 2' 13600007 DC AL1(SBA),AL2(L3P3LG),C'KEY IN:' 13650007 DC AL1(SBA),AL2(L3P25LG),C'YOU WILL SEE:' 13700007 DC AL1(SBA),AL2(L4P1LG),C'DEMF LINE LLL',AL1(SBA),AL2(L4P23LG) 13750007 DC C'ERRS BY CONTROL UNIT ON SELECTED LINE LLL' 13800007 DC AL1(SBA),AL2(L5P1LG),C'DEMF CTRL LLL CC',AL1(SBA),AL2(L5P23LG) 13850007 DC C'ERRS BY TERMINAL ON REMOTE CONTROL UNIT LLL CC' 13900007 DC AL1(SBA),AL2(L6P1LG),C'DEMF CTRL CCC',AL1(SBA),AL2(L6P23LG) 13950007 DC C'ERRS BY TERMINAL ON LOCAL CONTROL UNIT CCC' 14000007 DC AL1(SBA),AL2(L7P1LG),C'DEMF 3270 LLL CC TT',AL1(SBA),AL2(L7P23LG) 14050007 DC C'ERR DESCRIPTIVE DATA OF REMOTE TERMINAL LLL CC TT' 14100007 DC AL1(SBA),AL2(L8P1LG),C'DEMF 3270 TTT',AL1(SBA),AL2(L8P23LG) 14150007 DC C'ERR DESCRIPTIVE DATA OF LOCAL TERMINAL TTT' 14200007 DC AL1(SBA),AL2(L9P1LG),C'DEMF 3270 SYMBNAME',AL1(SBA),AL2(L9P23LG) 14250007 DC C'ERR DESCRIPTIVE DATA OF LOCAL OR REMOTE TERMINAL' 14300007 DC AL1(SBA),AL2(L10P23LG),C'WITH TCAM NAME',AL1(SBA),AL2(L12P1LG) 14350007 DC C'TYPE X IN PLACE OF ? ON ALL DISPLAYS TO PAGE OR VIEW LOWER' 14400007 DC C' LEVEL OF DETAIL' 14450007 LG2LTH EQU *-LG2MSG 14500007 SM1MSG DC AL1(SBA),AL2(L1P1),AL1(SF,MNP) 14550007 DC C'DEMF',AL1(SF,UNA),AL1(SBA),AL2(L1P35),AL1(SF,MNP) 14600007 DC C'MENU',AL1(SF,PNA),C'TCAM VERSION' 14650007 DC AL1(SBA),AL2(L2P29SM),C'PAGE 1 OF 2' 14700007 DC AL1(SBA),AL2(L3P1SM),C'TYPE IN COMMAND OR X IN ? TO DISPLAY:' 14750007 DC AL1(SBA),AL2(L4P1SM),C'(',AL1(SBA),AL2(L4P2SM),AL1(SF,UNA) 14800007 DC AL1(IC),C'?' 14850007 DC AL1(SBA),AL2(L4P4SM),AL1(SF,PNA),C')ALL' 14900007 DC AL1(SBA),AL2(L4P15SM),C'RECAP OF ERRS ON ALL LINES' 14950007 DC AL1(SBA),AL2(L5P1SM),C'(',AL1(SBA),AL2(L5P2SM),AL1(SF,UNA),C'?' 15000007 DC AL1(SBA),AL2(L5P4SM),AL1(SF,PNA),C')3270' 15050007 DC AL1(SBA),AL2(L5P15SM),C'ERR DATA ON YOUR TERMINAL' 15100007 DC AL1(SBA),AL2(L6P1SM),C'(',AL1(SBA),AL2(L6P2SM),AL1(SF,UNA),C'?' 15150007 DC AL1(SBA),AL2(L6P4SM),AL1(SF,PNA),C')REMOTE' 15200007 DC AL1(SBA),AL2(L6P15SM),C'TEXT OF REMOTE 327X STATUS' 15250007 DC AL1(SBA),AL2(L7P16SM),C' AND SENSE COMBINATIONS' 15300007 DC AL1(SBA),AL2(L8P1SM),C'(',AL1(SBA),AL2(L8P2SM),AL1(SF,UNA),C'?' 15350007 DC AL1(SBA),AL2(L8P4SM),AL1(SF,PNA),C')LOCAL' 15400007 DC AL1(SBA),AL2(L8P15SM),C'TEXT OF LOCAL 327X STATUS' 15450007 DC AL1(SBA),AL2(L9P16SM),C' AND SENSE COMBINATIONS' 15500007 *DC AL1(SBA),AL2(L10P1SM),C' ',AL1(SBA),AL2(L10P2SM),AL1(SF,MNP),C' ' 15550007 DC AL1(SBA),AL2(L10P1SM),AL1(SF,MNP),C'DEPRESS ' 15600007 DC AL1(SF,PNA),C'ENTER FOR PAGE TWO' 15650007 DC C'--CONTAINS' 15700007 DC AL1(SBA),AL2(L11P5SM),C'COMMAND FORMATS USED TO DIRECTLY' 15750007 DC AL1(SBA),AL2(L12P5SM),C'ADDRESS A LINE, CTRL UNIT, OR TERM' 15800007 SM1LTH EQU *-SM1MSG 15850007 SM2MSG DC AL1(SBA),AL2(L1P1),AL1(SF,MNP) 15900007 DC C'DEMF',AL1(SF,UNA,IC),AL1(SBA),AL2(L1P35),AL1(SF,MNP) 15950007 DC C'MENU',AL1(SF,PNA) 16000007 DC CL40'TCAM VERSION PAGE 2 OF 2' 16050007 DC CL40' KEY IN: YOU WILL SEE:' 16100007 DC CL40'DEMF LINE LLL ERRS BY CONTROL UNIT' 16150007 DC CL40'DEMF CTRL LLL CC ERRS BY REMOTE TERML' 16200007 DC CL40'DEMF CTRL CCC ERRS BY LOCAL TERML' 16250007 DC CL40'DEMF 3270 LLL CC TT STATUS OF RMOT TERML' 16300007 DC CL40'DEMF 3270 TTT STATUS OF LOCL TERML' 16350007 DC CL40'DEMF 3270 SYMBNAME STATUS OF RMT OR LOC' 16400007 DC CL40' TERML WITH TCAM NAME' 16450007 DC CL40'TYPE X IN PLACE OF ? ON ALL DISPLAYS TO' 16500007 DC CL40' PAGE OR VIEW LOWER LEVEL OF DETAIL' 16550007 SM2LTH EQU *-SM2MSG 16600007 LTORG 16650007 END BNGTMENU 16700007