Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
can some one explain the below code...

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
ram_vizag

Active User


Joined: 21 Aug 2008
Posts: 107
Location: hyd

PostPosted: Thu Aug 22, 2013 4:35 pm    Post subject: can some one explain the below code...
Reply with quote

Hi Friends,

I'm doing analysis in jcl,syncsort,rexx...can some one explan the following code:


Code:


$$FILEM DSC INPUT=DD00,
$$FILEM         OUTPUT=DD00O,
$$FILEM         PROC=*
  CHG_OUT('00'X,'40'X,0,1)



I CAN UNDERSTAND that low-values are being converted to spaces but what does 0,1 do in the above code....Could you please expalin
Back to top
View user's profile Send private message

Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1555
Location: Andromeda Galaxy

PostPosted: Thu Aug 22, 2013 4:37 pm    Post subject:
Reply with quote

Did you check the File manager manual?
Back to top
View user's profile Send private message
Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Thu Aug 22, 2013 6:38 pm    Post subject:
Reply with quote

From my manual, those are 'count' and 'start' parms.

0 for count means 'change all', 1 for start means start at the beginning of the record.

CHG_OUT is described in the "External REXX Functions" in the "Functions" chapter.

Not sure which version of FileManager you have, but the books are on the IBM website.

What's really happening there is that a record is being read, then a rexx is being called for each record. the rexx is defined instream (PROC=*). The only line of the rexx is "chg_out..." That rexx function does the work of the replacing, the output record then gets copied to the output DD.

You can do a LOT of stuff with FileManager, and the more I use it, the more I learn. This concept of running a rexx on each record took me a while to understand though.
Back to top
View user's profile Send private message
ram_vizag

Active User


Joined: 21 Aug 2008
Posts: 107
Location: hyd

PostPosted: Fri Aug 23, 2013 12:12 pm    Post subject: Thanks a lot...
Reply with quote

hi all,

i could understand from the manual of filemanager...Thanks a lot...
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What will happen if we dont code STOP... Poha Eater COBOL Programming 4 Mon Jun 04, 2018 5:27 pm
No new posts JCL to set Return code when Time Out ... vinu78 JCL & VSAM 6 Wed May 30, 2018 11:27 am
This topic is locked: you cannot edit posts or make replies. Rexx code to find greater then symobl... Bharath Vikraman CLIST & REXX 8 Tue May 29, 2018 9:40 am
No new posts RESP2 code -502 pshongal CICS 6 Mon May 28, 2018 10:58 am
No new posts Code Coverage and static analysis too... Aditya.Srivastava PL/I & Assembler 2 Fri May 25, 2018 12:48 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us