DSN8IPN
PROVIDES THE IMS MFS MAP FOR MENU 1 OF THE PHONE APPLICATION.
**********************************************************************
* *
* MODULE NAME = DSN8IPN *
* *
* DESCRIPTIVE NAME = IMS MFS FORMAT FOR PHONE MENU 1 *
* *
* 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 1 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 = DSN8IPN *
* *
* 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 *
* DPAGE - IMS MFS PAGE DESCRIPTION *
* 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 1 *
************************************************************************
*
PRINT NOGEN
DSN8NF FMT
DEV TYPE=(3270,2),FEAT=IGNORE,SYSMSG=D0003
DIV TYPE=INOUT
DPAGE CURSOR=((09,43))
DFLD '---------------------------- TELEPHONE DIRECTORY ------*
-----------------------',POS=(02,02)
DFLD 'LAST NAME ==>',POS=(09,28)
DFLD 'FIRST NAME ==>',POS=(11,28)
DFLD 'LAST NAME : ',POS=(22,2)
DFLD '*',POS=(22,25),ATTR=HI
DFLD 'FOR LIST OF ENTIRE DIRECTORY ',POS=(22,28)
DFLD '%',POS=(23,25),ATTR=HI
DFLD 'FOR GENERIC LIST (EX. K% = ALL K - NAMES)',POS=(23,28)
DFLD 'FIRST NAME(OPTIONAL):',POS=(24,02)
DFLD '%',POS=(24,25),ATTR=HI
DFLD 'FOR GENERIC LIST',POS=(24,28)
D0001 DFLD POS=(09,43),LTH=15 LAST NAME
D0002 DFLD POS=(11,43),LTH=12 FIRST NAME
D0003 DFLD POS=(21,02),LTH=79,ATTR=(PROT,HI) ERROR MESSAGE
FMTEND
************************************************************************
* PHONE MENU OUTPUT DISCRIPTION: DSN8IPNO *
************************************************************************
*
DSN8IPNO MSG TYPE=OUTPUT,SOR=(DSN8NF,IGNORE),NXT=DSN8IPNI
SEG
MFLD D0003,LTH=79 ERROR MESSAGE
MFLD D0001,LTH=15 LAST NAME
MFLD D0002,LTH=12 FIRST NAME
MSGEND
************************************************************************
* PHONE MENU INPUT DISCRIPTION: DSN8IPNI *
************************************************************************
*
DSN8IPNI MSG TYPE=INPUT,SOR=DSN8NF
SEG
MFLD 'DSN8PT ' TRANSACT. CODE
MFLD 'L' ACTION
MFLD D0001,LTH=15 LAST NAME
MFLD D0002,LTH=12 FIRST NAME
MSGEND
END