Search found 29 matches

by Vikas.betu
Sat Feb 22, 2014 3:15 am
Forum: DFSORT , ICETOOL & Utilities
Topic: bit to 8 different char
Replies: 38
Views: 26687

Thanks Guys

But testing for some records has been failed and no one is here to correct me :(

example

OutPut :

00000111

which should be

00001111


It means we have a data in last 4 bit of REIMB-CODE. Again need your help and guidence
by Vikas.betu
Sat Feb 22, 2014 12:12 am
Forum: DFSORT , ICETOOL & Utilities
Topic: bit to 8 different char
Replies: 38
Views: 26687

No We don't use EASYTRIVE in our project :(
by Vikas.betu
Fri Feb 21, 2014 9:59 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: bit to 8 different char
Replies: 38
Views: 26687

Thanks William I have used your code and now I sent data to test whether decoded information is coming in this is correct or not. I'll let you know once I'll get the result. Thanks Dik I am in coading and dont know much about cobol thats why I was trying with JCL. If you have any link where I can fi...
by Vikas.betu
Fri Feb 21, 2014 7:55 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: bit to 8 different char
Replies: 38
Views: 26687

Thank you William But my requirement is I need to extract only first column, whose values are '.' ---------------------------- REIMB-CODE C(1) ----- **** . . . . . ----------------------- The reimb code contains 7 years of information about an reimb status. Need to decode the C(1) field to 8 bits wh...
by Vikas.betu
Fri Feb 21, 2014 8:30 am
Forum: DFSORT , ICETOOL & Utilities
Topic: bit to 8 different char
Replies: 38
Views: 26687

Thanks for the help Dik, but unfortunatly I am not able to modify this code as per my requirement(either abend or not logical). This forum is my last hope to get some info. If some one can give me some code as per requirment then It would be great.. as I have to resolve this issue by today itself :(...
by Vikas.betu
Fri Feb 21, 2014 1:36 am
Forum: DFSORT , ICETOOL & Utilities
Topic: bit to 8 different char
Replies: 38
Views: 26687

I have tried but what I am not getting is IFTHEN=(WHEN=INIT,BUILD=(8C'0',9:9,2,11:1,1)), How it work ? Can some tell me how it work? OUTPUT should be look like REIMB-CODE SERIAL SEQ SUCC C(1) (1-1) C(5) (2-6) PS(9) (2-6) PS(6,3) (2-6) PS(1) (7-7) ------------- -KEY----------- -KEY--------- -KEY-----...
by Vikas.betu
Fri Feb 21, 2014 1:10 am
Forum: DFSORT , ICETOOL & Utilities
Topic: bit to 8 different char
Replies: 38
Views: 26687

Thanks William I am trying to understand your explanation and try to modify as per my requirement. Please find below mention requirement and input This is my input file This is my input file REIMB-CODE SERIAL SERIAL-SEQ SERSEQ SUCCESSOR C(1) (1-1) C(5) (2-6) PS(9&...
by Vikas.betu
Thu Feb 20, 2014 10:49 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: bit to 8 different char
Replies: 38
Views: 26687

Thanks Dik
But I need alternative as I am stuck with ifthen / overlay
I am not sure what changes needs to be done in below mention code to work for 1 character field to 8 bit
If you can help in this then pls
by Vikas.betu
Thu Feb 20, 2014 7:54 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: bit to 8 different char
Replies: 38
Views: 26687

Please find the sysout msg when I ran below job ---------------------------------------------------------------- //EMPACT1 EXEC PGM=SORT //SYSPRINT DD SYSOUT=* //SORTIN DD DSN=INPUT,DISP=SHR //SORTOUT DD DSN=OUTPUT, // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(15,15),RLSE), // DCB=(RECF...
by Vikas.betu
Wed Feb 19, 2014 10:08 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: bit to 8 different char
Replies: 38
Views: 26687

I have a single char field, having values '.' or blanks(its a coded value through assembler prog). Now I need to decode these values to 8 bit field whose outputs looks like '1100 0001'(it's just a example). Can you guys provide me any jcl sort to resolve this. I am asking this directly as I am not a...
by Vikas.betu
Wed Feb 19, 2014 8:28 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: bit to 8 different char
Replies: 38
Views: 26687

I got this code from this forum only, I have tried your code but it is giving me syntax error :(
by Vikas.betu
Wed Feb 19, 2014 3:07 am
Forum: DFSORT , ICETOOL & Utilities
Topic: bit to 8 different char
Replies: 38
Views: 26687

I got this sort partial, however the main problem I m facing below line
IFTHEN=(WHEN=INIT,BUILD=(8C'0',9:9,2,11:1,1)),

I don't want to waste your time, but I am trying to learn. If possbile then revert
by Vikas.betu
Wed Feb 19, 2014 1:48 am
Forum: DFSORT , ICETOOL & Utilities
Topic: bit to 8 different char
Replies: 38
Views: 26687

Thanks for response. But I am new for DFSORT, I got this sort card from mainframe forum itselt. But not able to understand this
by Vikas.betu
Tue Feb 18, 2014 9:19 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: bit to 8 different char
Replies: 38
Views: 26687

bit to 8 different char

I have with flag information embeeded in a charactor. Each bit of a charactor indicates a statos of a specific flag. Means a byte has information about 8 different flags. I wanted to expand this bit information to a seperate charactor, as each character indicates a status of a flag (1/0) in a JCL. C...