tgo60
New User
Joined: 19 Apr 2006
Posts: 6
|
|
|
|
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' |
|
|
