rahul_kolhe
New User
Joined: 08 Nov 2006 Posts: 15
|
|
|
|
example of PCB mask in Pl/i. It is similar to Cobol but in cobol you give PCB mask in linkage section whereas in Pl/i, use the pointer concept.
DCL PCB_PTR PTR;
DCL 01 PCB_MASK BASED (PCB_PTR),
05 DBNAME CHAR (8),
05 SEGLEVEL CHAR (2),
05 STATUS CHAR (2),
05 PROCOPTS CHAR (4),
05 RESERVED CHAR (4),
05 SEGNAME CHAR (8),
05 KFB_LENGTH BIN FIXED (31),
05 SENSEG_# CHAR (4),
05 KFB CHAR (100); |
|