DSN8IPL
PROVIDES THE IMS MFS MAP FOR MENU 2 OF THE PHONE APPLICATION.
**********************************************************************
* *
* MODULE NAME = DSN8IPL *
* *
* DESCRIPTIVE NAME = IMS MFS FORMAT FOR PHONE MENU 2 *
* *
* COPYRIGHT = 5740-XYR (C) COPYRIGHT IBM CORP 1982, 1985 *
* REFER TO COPYRIGHT INSTRUCTIONS FORM NUMBER G120-2083 *
* *
* STATUS = RELEASE 2, LEVEL 0 *
* *
* FUNCTION = *
* PROVIDES THE IMS MFS MAP FOR MENU 2 OF *
* THE PHONE APPLICATION. *
* *
* NOTES = *
* DEPENDENCIES = NONE *
* *
* RESTRICTIONS = NONE *
* *
* REGISTER CONVENTIONS = NONE, NO EXECUTABLE CODE *
* *
* MODULE TYPE = PROCEDURE *
* *
* PROCESSOR = ASSEMBLER XF OR H *
* *
* MODULE SIZE = SEE ASSEMBLER LISTING *
* *
* ATTRIBUTES = REUSABLE *
* *
* ENTRY POINT = DSN8IPL *
* *
* PURPOSE = SEE FUNCTION *
* *
* LINKAGE = NONE *
* *
* INPUT = NONE *
* *
* OUTPUT = NONE *
* *
* *
* EXIT-NORMAL = NONE *
* *
* EXIT-ERROR = NONE *
* *
* RETURN CODE = NONE *
* REASON CODE = NONE *
* *
* ABEND CODES = NONE *
* *
* ERROR-MESSAGES = NONE *
* *
* EXTERNAL REFERENCES = *
* ROUTINES/SERVICES = NONE *
* *
* DATA-AREAS = NONE *
* *
* CONTROL-BLOCKS = NONE *
* *
* MACROS = *
* DEV - IMS MFS DEVICE DESCRIPTION *
* DFLD - IMS MFS FIELD DESCRIPTION *
* DIV - IMS MFS DIVISION DESCRIPTION *
* DO - IMS MFS GROUPING *
* DPAGE - IMS MFS PAGE DESCRIPTION *
* ENDDO - IMS MFS END OF GROUPING *
* FMT - IMS MFS FORMAT BEGINNING *
* FMTEND - IMS MFS FORMAT ENDING *
* MFLD - IMS MFS MESSAGE FIELD *
* MSG - IMS MFS MESSAGE DESCRIPTION *
* MSGEND - IMS MFS MESSAGE ENDING *
* SEG - IMS MFS MESSAGE SEGMENT *
* *
* TABLES = NONE *
* *
* CHANGE-ACTIVITY = *
* NONE *
* *
* PSEUDOCODE = *
* *
* THIS MODULE CONTAINS NO EXECUTABLE CODE. *
* *
**********************************************************************
EJECT
************************************************************************
* PHONE MENU 2 SCREEN DESIGN *
************************************************************************
*
PRINT NOGEN
DSN8LF FMT
DEV TYPE=(3270,2),FEAT=IGNORE,SYSMSG=D0008,DSCA=X'00C0'
DIV TYPE=INOUT
DPAGE CURSOR=((07,33))
DFLD '---------------------------- TELEPHONE DIRECTORY ------*
-----------------------',POS=(02,02)
DFLD 'FIRST NAME MID LAST NAME',POS=(04,03)
DFLD 'PHONE EMPL WORK WORK',POS=(04,32)
DFLD 'INIT',POS=(05,14)
DFLD 'NO NO DEPT DEPT NAME',POS=(05,34)
DO 15
D0001 DFLD POS=(07,02),LTH=12,ATTR=PROT FIRST NAME
D0002 DFLD POS=(07,15),LTH=1,ATTR=PROT MIDDLE INITIAL
D0003 DFLD POS=(07,17),LTH=15,ATTR=PROT LAST NAME
D0004 DFLD POS=(07,33),LTH=4,ATTR=HI PHONE NO
D0005 DFLD POS=(07,38),LTH=6,ATTR=(PROT,MOD) EMPLOYEE NO
D0006 DFLD POS=(07,45),LTH=3,ATTR=PROT WORK DEPARTMENT
D0007 DFLD POS=(07,49),LTH=32,ATTR=PROT WORK DEPT. NAME
ENDDO
D0008 DFLD POS=(23,02),LTH=79,ATTR=(HI,PROT) ERROR MESSAGE
FMTEND
************************************************************************
* PHONE MENU 2 OUTPUT DESCRIPTION: DSN8IPLO *
************************************************************************
*
DSN8IPLO MSG TYPE=OUTPUT,SOR=(DSN8LF,IGNORE),NXT=DSN8IPLI
SEG
MFLD D0008,LTH=79 ERROR MESSAGE
DO 15
MFLD D0001,LTH=12 FIRST NAME
MFLD D0002,LTH=1 MIDDLE INITIAL
MFLD D0003,LTH=15 LAST NAME
MFLD D0004,LTH=4 PHONE NO
MFLD D0005,LTH=6 EMPLOYEE NO
MFLD D0006,LTH=3 WORK DEPARTMENT
MFLD D0007,LTH=32 DEPARTMENT NAME
ENDDO
MSGEND
************************************************************************
* PHONE MENU 2 INPUT DESCRIPTION: DSN8IPLI *
************************************************************************
*
DSN8IPLI MSG TYPE=INPUT,SOR=DSN8LF
SEG
MFLD 'DSN8PT ' TRANSACT. CODE
MFLD 'U' ACTION
DO 15
MFLD D0004,LTH=4 PHONE NO
MFLD D0005,LTH=6 EMPLOYEE NO
ENDDO
MSGEND
END