Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Converting SYSPUNCH into a COBOL copy-book

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DB2
View previous topic :: :: View next topic  
Author Message
Rishi Khare

New User


Joined: 13 Aug 2007
Posts: 16
Location: Mumbai

PostPosted: Tue Nov 03, 2009 2:06 pm    Post subject: Converting SYSPUNCH into a COBOL copy-book
Reply with quote

How to convert a SYSPUNCH (specified dataview) of a table into a COBOL copybook?
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Nov 03, 2009 8:31 pm    Post subject:
Reply with quote

Hello,

What is in the SYSPUNCH? Please show some of the content.
Back to top
View user's profile Send private message
Rishi Khare

New User


Joined: 13 Aug 2007
Posts: 16
Location: Mumbai

PostPosted: Wed Nov 04, 2009 10:19 am    Post subject:
Reply with quote

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
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1755
Location: Bloomington, IL

PostPosted: Thu Nov 05, 2009 3:16 am    Post subject:
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Nov 05, 2009 6:21 pm    Post subject:
Reply with quote

Akatsukami wrote:
IM me, and I will send it to you.
here they call it PM...icon_biggrin.gif
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1755
Location: Bloomington, IL

PostPosted: Thu Nov 05, 2009 7:42 pm    Post subject:
Reply with quote

Anuj Dhawan wrote:
Akatsukami wrote:
IM me, and I will send it to you.
here they call it PM...icon_biggrin.gif

As long as it doesn't involve calling me late for lunch... icon_biggrin.gif
Back to top
View user's profile Send private message
Hariprasad_Pargunan

New User


Joined: 08 Jan 2009
Posts: 20
Location: Chennai

PostPosted: Fri Dec 10, 2010 7:04 pm    Post subject: Reply to: Converting SYSPUNCH into a COBOL copy-book
Reply with quote

Can you send me the code?
Back to top
View user's profile Send private message
surya4ug

New User


Joined: 08 Jul 2008
Posts: 62
Location: chennai

PostPosted: Wed Jan 26, 2011 10:12 pm    Post subject: Reply to: Converting SYSPUNCH into a COBOL copy-book
Reply with quote

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
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2276
Location: @my desk

PostPosted: Wed Jan 26, 2011 10:48 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DB2 All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
This topic is locked: you cannot edit posts or make replies. Cobol GUI (like Editor) Kala Mainframe COBOL Programming 14 Wed May 10, 2017 12:30 pm
No new posts IMS T-Pipe queue counts in a COBOL Pr... Siva NKK Kothamasu IMS DB/DC 0 Tue May 09, 2017 6:31 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts copy SEQ to PDS and create stats steve-myers JCL & VSAM 5 Thu Apr 27, 2017 1:15 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us