View previous topic :: View next topic
|
Author |
Message |
senjay
Active User
Joined: 10 May 2007 Posts: 147 Location: India
|
|
|
|
Hi,
In my requirement, i need to convert the following cobol structure in to pl1 structure without affecting its LRECL.
01 A.
05 B PIC X(20).
05 C PIC X(20) REDEFINES B.
07 C PIC X(10).
07 D PIC X(10).
05 E PIC X(20).
I don't know anything in COBOL. please help me out in this. |
|
Back to top |
|
|
senjay
Active User
Joined: 10 May 2007 Posts: 147 Location: India
|
|
|
|
I tried some possibilities, but LRECL is getting affected |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
Please post what you tried, I'm not a PLI person, but I might be able to help. |
|
Back to top |
|
|
anbesivam
New User
Joined: 22 Aug 2006 Posts: 5
|
|
|
|
Hi Senjey,
Please check the following code..
Code: |
DCL 1 A,
2 B PIC X(20),
5 C PIC X(20) DEF B,
7 C PIC X(10),
7 D PIC X(10),
5 E PIC X(20); |
I didn't tried practically. But I'm sure, It will work.
Hope this helps. |
|
Back to top |
|
|
senjay
Active User
Joined: 10 May 2007 Posts: 147 Location: India
|
|
|
|
Thanks all,
I already tried the DEF. but LRECL is getting affected. the structure in cobol format is having length of 60 bytes. but when i tried with DEF in pl1, it is giving 80 bytes. any other way? |
|
Back to top |
|
|
anbesivam
New User
Joined: 22 Aug 2006 Posts: 5
|
|
|
|
As you cannot use 'Miner' structure with DEF, Could please try following code and let us know.
Structure A's STG is 60.
Code: |
DCL 1 A,
2 B union,
3 B1 PIC '(20)X',
2 C union,
3 C1 PIC '(20)X',
3 C2 PIC '(10)X',
3 D PIC '(10)X',
2 E PIC '(20)X'; |
|
|
Back to top |
|
|
|