Sample MACRO
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 = “ Customer Details) X
Length = 25
DFHMDF Pos = (2,10) X
Initial = “………………” X
Length = 25 X
DFHMDF Pos = (4,1) X
Initial = “Cust.No” X
Length = 8 X
Mcust No DFHMDF Pos = (4,11) 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(S)” X
PICOUT = “Z(5)” X
Length = 16 X
DFHMDF Pos = (7,1) X
Initial = “Cust.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
USERID SOURCE COPLIB (MCT001M)
01 MCNST001I
02 MCNST NO I PIC 9(5)
02 Filler PIC X(12) ---- For Commands
02 MCNST NO L PIC S9(4)Comp --- Automatically Generated by system
02 MCNST NO A PIC X(1)
02 MCNST NO F Redefines Mcnst No A PIC X(1)
02 MCNSTNAMI PIC X(10)
02 Filler PIC X(12)
02 MCNSTNAML PIC S9(4)Comp
02 MCNSTNAMA PIC X(1)
02 MCNSTNAMF Redefines McnstNam A PIC X(1)
01 Mcnst0010 Redefines MCnst001I
02 McnstNoo PIC Z(5)
02 McnstNamO PIC X(10)
WORKING ---- STORAGE SECTION
Copy MCT001M
No comments:
Post a Comment