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
 
Comments on the right of instructions in File Manager

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools
View previous topic :: :: View next topic  
Author Message
tgo60

New User


Joined: 19 Apr 2006
Posts: 6

PostPosted: Wed Jul 02, 2014 1:12 am    Post subject: Comments on the right of instructions in File Manager
Reply with quote

1) We've gone from insync to file-aid to insync to file-aid to now file manager over the past 15 yrs, I suspect we will to continue to flip flop as each vendor cuts a better deal.

2) Not sure if I'm getting too old for change or don’t care any more but I would feel much better if I could get the executives offices locks changed every month and have them fill out a request for the new key with a 10 day lead time.

3) Now for the question. I've searched high and far but can't find if it is possible to list comments to the right in ex. 2 as that can in ex. 1, I've tried a slew of combinations but no avail. fyi {<-USE 'HKP'} is the comment.

4) Also, I know this is a lazy way out but have one ran across any sites that have a ton of file manager examples, I do much better with examples than trying to decipher the cryptic syntax listed in the manuals.

Code:
Ex 1
//SYSIN DD *                                                 
$$FILEM DSC INPUT=DD01,OUTPUT=DD01O,PROC=*                   
IF FLD(10,4)   = 'THIS' &,      /* CASE SENSITIVE         */
   FLD(20,4,U) = 'THAT' &,      /* NOT CASE SENS.         */
   FLD(30,2)   = 'C1C2'X &,     /* HEXADECIMAL            */
   FLD(40,5,P) = 1234 &,        /* PACKED DECIMAL         */
   FLD(50,4,B) = 567 &,         /* BINARY NUMERIC X'0237' */
   FLD(60,6,Z) = 89 &,          /* ZONED DECIMAL          */
   FLD_TYPE(70,6,P)=1,          /* CHK VALID NUM DATA     */
THEN RETURN                                                 
RETURN DROP                                                 
/*         


Code:
Ex 2
//SYSIN DD *           
$$FILEM FCH INPUT=DDIN,   
$$FILEM     MEMBER=*       
F '(HKT)'       <-USE 'HKP'
F '//DHK'       <-USE 'CHK'
F '//SHK'       <-USE 'CHK'
F '//QHK'       <-USE 'CHK'
F '.DHK'        <-USE 'CHK'
F '.SHK'        <-USE 'CHK'
Back to top
View user's profile Send private message

tgo60

New User


Joined: 19 Apr 2006
Posts: 6

PostPosted: Wed Jul 23, 2014 2:54 am    Post subject: Reply to: Comments on the right of instructions in File Mana
Reply with quote

Thanks for everyone the viewed the question.

IBM response:
I heard back from development, there is not a way to comment the FIND command with FCH function.
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 -> IBM Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Formating output file Niki DFSORT/ICETOOL 3 Fri Jun 15, 2018 3:27 pm
No new posts Need help on TDQ load from file using... subratarec CICS 4 Wed Jun 13, 2018 11:32 pm
No new posts How to Count a particular record in a... Mounika Nemani DFSORT/ICETOOL 5 Tue May 29, 2018 1:07 pm
No new posts BAMAD file IO Error m1985nehal CICS 1 Fri May 25, 2018 11:51 am
No new posts Process file after 7 days of hold charlessxavier All Other Mainframe Topics 4 Tue May 22, 2018 3:54 pm

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