MVSFORUMS.com

kadamd1 · Beginner Joined: 18 Jun 2004 Posts: 2 Topics: 2

We have the following code in PL1.
What is the equivalent of the following definitions in COBOL?

01 P_COMPANY_CODE PIC '999B';

01 KEY,
05 COMPANY FIXED (3,0),
05 SUBSIDIARY FIXED (3,0);
01 KEY-CO BASED(ADDR(COMPANY)),
05 1ST-BYTE-COMPANY CHAR(01),
05 C0-4BITS BIT(4),
05 C0-SIGN BIT(4);
01 KEY-SUB BASED(ADDR(SUBSIDIARY)),
05 1ST-BYTE-SUB CHAR(01),
05 SUB-4BITS BIT(4),
05 SUB-SIGN BIT(4);

kolusu · Posted: Tue Aug 31, 2004 6:03 am Post subject:

kadamd1,

check this link for equivalent Data Types for PL/I to COBOL

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/CEEA4120/11.4.2?SHELF=&DT=20040115140447&CASE=

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu