View previous topic :: View next topic
|
Author |
Message |
Shobana
New User
Joined: 22 Mar 2005 Posts: 15 Location: Chennai
|
|
|
|
Can anyone help me out on the usage & functioning of the utility ?IEFCOPY? in cobol program? |
|
Back to top |
|
|
agkshirsagar
Active Member
Joined: 27 Feb 2007 Posts: 691 Location: Earth
|
|
|
|
Quote: |
?IEFCOPY? in cobol program?
|
Not quiet sure what you exactly want. Please elaborate. |
|
Back to top |
|
|
Shobana
New User
Joined: 22 Mar 2005 Posts: 15 Location: Chennai
|
|
|
|
The syntax used in our COBOL programs is like:
Case 1: IEFCOPY KAT000.WK_SERV_PRVDR_ID FLDLVL=10, PREFIX=H.
The above statement is replaced in the compile listing as:
10 H000-WK-SERV-PRVDR-ID PIC X(4).
(KAT000 is a DB2 table, FLDLVL specifies at which level it has to be copied & prefix specifies the first character of the variable to be start).
Case 2: IEFCOPY KAT009 PREFIX=L.
The above statement is replaced with the entire structure the KAT009 table as below in the compile listing?
05 L009-AFFILIATE-ID PIC X(1).
05 L009-ADJUSTMENT-LEVEL PIC X(1).
05 L009-ADJ-ACTIVITY-CODE PIC X(1).
05 L009-ADJUSTMENT-ID PIC X(5).
05 L009-ADJUSTMENT-DATA PIC X(15).
Pls let me know if you have any information on the funcationality of IEFCOPY here in the cobol program. |
|
Back to top |
|
|
agkshirsagar
Active Member
Joined: 27 Feb 2007 Posts: 691 Location: Earth
|
|
|
|
From your posts I can figure out that IEFCOPY is not an IBM utility program.
(First I thought you wanted to know IEBCOPY and you made a spelling mistake .. ) It may be some home made utility program for use on your site.
Check your compiler JCL, before the compiler step, there should be some program which preprocesses IEFCOPY statements and replaces it with the VARIABLE declarations as you have posted.
Good luck. |
|
Back to top |
|
|
Shobana
New User
Joined: 22 Mar 2005 Posts: 15 Location: Chennai
|
|
|
|
Thanks a lot Abhijit. |
|
Back to top |
|
|
agkshirsagar
Active Member
Joined: 27 Feb 2007 Posts: 691 Location: Earth
|
|
|
|
You are welcome |
|
Back to top |
|
|
|