|
View previous topic :: View next topic
|
| Author |
Message |
Rishi Khare
New User
Joined: 13 Aug 2007
Posts: 16
Location: Mumbai
|
|
|
|
| How to convert a SYSPUNCH (specified dataview) of a table into a COBOL copybook? |
|
| Back to top |
|
 |
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
What is in the SYSPUNCH? Please show some of the content. |
|
| Back to top |
|
|
Rishi Khare
New User
Joined: 13 Aug 2007
Posts: 16
Location: Mumbai
|
|
|
|
| Code: |
LOAD DATA LOG NO INDDN SYSREC00 INTO TABLE
AAAAAAA.TABLE
(
XXXXXXXX POSITION( 1: 2)
DECIMAL ,
YYYYYYYY POSITION( 3: 3)
DECIMAL ,
ZZZZZZZZ POSITION( 9 )
DATE EXTERNAL( 10) ,
QQQQQQQ POSITION( 19: 19)
DECIMAL
NULLIF( 20)='?',
)
|
This is how the SYSPUNCH looks like |
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL
|
|
|
|
| I do not know of any vendor tools to accomplish this (which doesn't mean that there aren't any, just that I don't know of any). However, I have a Rexx script that will convert a load control card deck (as written to SYSPUNCH) to a PL/I copybook. IM me, and I will send it to you. |
|
| Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
|
|
|
|
| Akatsukami wrote: |
| IM me, and I will send it to you. |
here they call it PM... |
|
| Back to top |
|
|
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1788
Location: Bloomington, IL
|
|
|
|
| Anuj Dhawan wrote: |
| Akatsukami wrote: |
| IM me, and I will send it to you. |
here they call it PM... |
As long as it doesn't involve calling me late for lunch... |
|
| Back to top |
|
|
Hariprasad_Pargunan
New User
Joined: 08 Jan 2009
Posts: 20
Location: Chennai
|
|
|
|
| Can you send me the code? |
|
| Back to top |
|
|
surya4ug
New User
Joined: 08 Jul 2008
Posts: 62
Location: chennai
|
|
|
|
Could you post the code here please. I'm in need of a similar piece of code as well.
Thanks in advance. |
|
| Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006
Posts: 2481
Location: @my desk
|
|
|
|
| Quote: |
| I'm in need of a similar piece of code |
Similar? You need to explain clearly what you are looking for. |
|
| Back to top |
|
|
|
|
