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
 

 

Help regarding FILEAID to FILEMANAGER CONVERSION

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

New User


Joined: 29 Sep 2007
Posts: 90
Location: chenna/i-

PostPosted: Thu Dec 15, 2011 7:25 pm    Post subject: Help regarding FILEAID to FILEMANAGER CONVERSION
Reply with quote

Code:
//BTH1789A JOB 'ADNM',USER=BTH1789,
//            MSGCLASS=8,NOTIFY=BTH1789
//CSSTEP1A EXEC  PGM=FILEMGR                                            00008600
//SYSPRINT DD  SYSOUT=*                                                 00008700
//SYSLIST  DD  SYSOUT=*                                                 00008800
//SYSTOTAL DD  SYSOUT=*                                                 00008900
//SYSUDUMP DD  SYSOUT=*                                                 00009000
//DD01     DD  DSN=BTH1789.TEST.FILE1,                                  00009100
//             DISP=SHR                                                 00009200
//DD01O    DD  DSN=BTH1789.TEST.FILE2,                                  00009300
//             DISP=(,CATLG,DELETE),                                    00009400
//             DCB=(RECFM=FB,LRECL=264,BLKSIZE=27984),                  00009500
//             SPACE=(CYL,(300,300),RLSE)                               00009600
//*SYSIN    DD  *                                                       00009700
//* FILEAID CODE
//*$$DD01  COPY IF=(127,EQ,C'_85'),REPL=(127,C'_01'),                   00009800
//*             IF=(118,NE,C'MAB_8E1_MB_20'),                           00009900
//*             IF=(118,NE,C'RCM_MAB_METHOD3')                          00010000
//SYSIN    DD  *                                                        00010002
*+* FMC2FM: Beginning of File Manager statement output *+*
$$FILEM DSC  INPUT=DD01,
$$FILEM      OUTPUT=DD01O,
$$FILEM      PROC=*
 RSTR_OUT()
 SETC(T_REC,'&ZINREC')             /* set input rec in user variable */
 IF TESTC(T_REC,127,'==','_85')
 THEN DO
  OVLY_VAR(T_REC,'_01',127)
  RETURN                           /* process record                 */
 END
 IF TESTC(T_REC,129,'==','DE')
 THEN DO
  VAR_OUT(T_REC,1,128,1)
  VAR_OUT(T_REC,131,17,129)
  OVLY_OUT('  ',146)
  VAR_OUT(T_REC,148,117,148)
  SAVE_OUT()
  RETURN                           /* process record                 */
 END
 IF TESTC(T_REC,118,'\==','MAB_8E1_MB_20'),
  & TESTC(T_REC,118,'\==','RCM_MAB_METHOD3'),
  & TESTC(T_REC,118,'\==','MAB_737_MB_S190')
 THEN DO
  SAVE_OUT()
  RETURN                           /* process record                 */
 END
/+

this is my test job which i need to move the fileaid code to filemanager.

i submitted the job but i got ONLY detail records with no header & trailer in the output file.
The input file data is below

Code:
HEADER20111214'test records'
9MFTAAGBJCBJ332293000000                 MAB_736_MB_00                 00000       2011111214
1MFTAAGBJHCBJ3322932000000               MAB_736_MB_00                 00000       2011111214
TRAILER20111214000002     



Please advice me what i need to change in the rexx code to get header & Trailer record in the output file.

Thanks
Siva
Back to top
View user's profile Send private message

Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Thu Dec 15, 2011 10:42 pm    Post subject:
Reply with quote

Shooting from hip: is your input file variable length? You may need to adjust the columns to account for that.

Do you need a save_out() before the first return?
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Thu Dec 15, 2011 11:15 pm    Post subject: Reply to: Help regarding FILEAID to FILEMANAGER CONVERSION
Reply with quote

are You sure that You are not mixing things ?
I just checked the FILEMANAGER manuals, and SETC/TESTC were not described anywhere
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1712
Location: UK

PostPosted: Fri Dec 16, 2011 12:28 am    Post subject:
Reply with quote

If it is Rexx then stick a Trace in it.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


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

PostPosted: Fri Dec 16, 2011 1:03 am    Post subject:
Reply with quote

Nic Clouston wrote:
If it is Rexx

then I am Marie of Romania icon_confused.gif
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1712
Location: UK

PostPosted: Fri Dec 16, 2011 3:03 am    Post subject:
Reply with quote

I admit it is unlike any flavour of rexx that I have come across. It is probably something designed by either File Aid or File Manager but TS calls it 'Rexx'. Better polish your stilettos just in case icon_exclaim.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Fri Dec 16, 2011 3:22 am    Post subject: Reply to: Help regarding FILEAID to FILEMANAGER CONVERSION
Reply with quote

Quote:
It is probably something designed by either File Aid or File Manager

icon_redface.gif my bad

i was checking an older manual, the constructs are valid for file manager 11.1 FASTREXX scripting

as per manual here
http://publib.boulder.ibm.com/infocenter/pdthelp/v1r1/index.jsp?topic=%2Fcom.ibm.filemanager.doc_11.1%2Fbase%2Ffmnu1l01749.htm

or here
http://publib.boulder.ibm.com/infocenter/pdthelp/v1r1/index.jsp?topic=%2Fcom.ibm.filemanager.doc_11.1

with the new IBM approach for publishing the manuals to find out what link to post has become a pain in the ***
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: Fri Dec 16, 2011 4:04 am    Post subject: Reply to: Help regarding FILEAID to FILEMANAGER CONVERSION
Reply with quote

Quote:
with the new IBM approach for publishing the manuals to find out what link to post has become a pain in the ***


Ahhh - the pain in the asterisks. . .

icon_rolleyes.gif
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Fri Dec 16, 2011 4:17 am    Post subject:
Reply with quote

enrico,

if you mean getting a URL for the exact page....

never did get the page-pos html correctly,
so i have the ibm document search create a url for me.

i find what I want,
then figure out what i can use as a search key from the page that i am viewing
for the document search,
which will give me a URL for the exact page and often,
place on the page.

otherwise ignore me, t'is late and i have imbibed. (i even looked that up!)
Back to top
View user's profile Send private message
sivasaras

New User


Joined: 29 Sep 2007
Posts: 90
Location: chenna/i-

PostPosted: Fri Dec 16, 2011 6:44 pm    Post subject:
Reply with quote

Hi,

I inserted SAVE_OUT() before the RSTR_OUT() in the code and it works.

now i am able to get the output file correctly with header & Trailer.

Thanks for all your help

Regards,
Siva
Back to top
View user's profile Send private message
Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Fri Dec 16, 2011 8:56 pm    Post subject:
Reply with quote

Now, if I read things in the manual correctly, you could probably just get rid of the RSTR_OUT command altogether. It seems to restore the most recently saved record, which you just added as the previous statement.

So you are saving the record, then restoring that saved record. Without the save_out() in there, you were restoring the PREVIOUS record.
Back to top
View user's profile Send private message
sivasaras

New User


Joined: 29 Sep 2007
Posts: 90
Location: chenna/i-

PostPosted: Fri Dec 16, 2011 10:11 pm    Post subject:
Reply with quote

No without SAVE_OUT() i am not getting Header & trailers only the detail records alone came in the output.
Back to top
View user's profile Send private message
Ed Goodman

Active Member


Joined: 08 Jun 2011
Posts: 556
Location: USA

PostPosted: Mon Dec 19, 2011 11:07 pm    Post subject:
Reply with quote

Did you ALSO remove the RSTR_OUT along with the SAVE_OUT????
Back to top
View user's profile Send private message
sivasaras

New User


Joined: 29 Sep 2007
Posts: 90
Location: chenna/i-

PostPosted: Wed Dec 21, 2011 3:31 pm    Post subject:
Reply with quote

Yes i used only SAVE_OUT() and removed the RSTR_OUT()
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 File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts Conversion of a VB file to FB. isssal DFSORT/ICETOOL 1 Mon Oct 31, 2016 10:23 pm
No new posts EBCDIC to ASCII conversion using OCOPY mistah kurtz All Other Mainframe Topics 5 Tue Sep 06, 2016 2:26 pm
No new posts Comparex utility to Syncsort conversion mistah kurtz SYNCSORT 11 Fri Jul 22, 2016 1:53 pm
No new posts changing z/os unicode conversion service meykh2014 All Other Mainframe Topics 0 Tue Jul 12, 2016 10:49 am


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