*******INSURANCE DATA********
------------------------------------------------
POLICY NUMBER :________________
CUSTOMER NAME :________________
Step 1 : Create PDS and a Member then code Assembler Macro by using DFHMSD, DFHMD1, DFHMDF
Ex: TSO.USERID.CICS.MAPS(CICMAP1)
MAPS00IS DFHMSD Type = MAP or DSECT or &SYSPARM, X
Mode = In/out or INOUT X
LAN = COBOL X
TIOAPFX = YES
CNTL = (FRSET,PRINT, FREEKB) X
MAP001M DFHMDI SIZE = (24,80) --- Default X
= (10,20)
10 = Rows, 20 = Cols.
DFHMDF Pos = (1,10) X
10= St Pos of Col, 1 = St pos of Row
Initial = “ *****INSURANCE DATA****) X
Length = 30
DFHMDF Pos = (2,10) X
Initial = “………………” X
Length = 30 X
DFHMDF Pos = (4,1) X
Initial = “POLICY NUMBER” X
Length = 14 X
Mpolnb DFHMDF Pos = (4,16) X
ATTRB = (Unprotect / Protect,IC, Red,Drk,Skip,Fset) X
Input Cursor or
Insert Cursor Color
Dark
To skip to next enterable field
PICIN = “9(5)” X
PICOUT = “Z(5)” X
Length = 16 X
DFHMDF Pos = (7,1) X
Initial = “CUSTOMER NAME” X
Length = 9 X
McustNam DFHMDF Pos = (7,12) X
PICIN = “x(10)” X
PICOUT = “x(10)” X
Attrb: (Unprotect/Red/Drk/Askip/FSET) X
ConversionConversion EmoticonEmoticon