mainframegurukul.com

Thanks Frank for the solution. It worked.

My requirement is to exclude a group from an XML file if the group contain error values in one of the detail record. Details given below File Format : FB Record length : 32000 Group starts with value 'RFH' in position 1-3 and ends with the value </BookingsCreate></ns0:MT_BookingsCreate> in position ...

Thanks Frank for the clarification. There is no issue in using two FINDREPS in two IFTHEN clauses. Just want to know whether one FINDREP can be used to satisfy my requirement. Thanks again for your quick response.

My requirement is to replace the hexadecimal character a) X'6B' with X'4B' between the positions 106-174 of the input file b) X'4A' with X'40' between positions 63-92 of the input file I tried initially using ALTSEQ shown below and not getting the correct result and it seems the character X'6B' foun...

you can use the DISPLAY command to obtain the internal information and various components of CA-7. e.g

/DISPLAY,Q=ALL will display the queues available in CA-7
/DISPLAY,ST=JCL will display the JCL Libraries.

Regarding the flow structure, you can use either FTSRUC or FRJOB (reverse flow) command.

Thanks Frank for the solution

Yes Frank. I want a 5 byte packed field result.

My requirement is to multiply a packed decimal field with a decimal constant 0.0256. The input file is of record length 80 and the packed decimal field is at position 54 of length 5. The multiplication output need to be stored at postion 81-85 Could you please help me to correct the following OUTREC...

The solution provided by you worked. Thanks Frank fro your timely help.

My requirement is to replace the '########' string with current date in a SFTP control member. Input PWD ls -l get 'ETOLDAG_000003_########.csv' 'UGLXCD.EBAXMD.NETWORK.TEST' rename 'ETOLDAG_000003_########.csv' 'ETOLDAG_000003_########.csv.taken' quit Output PWD ls -l get 'ETOLDAG_000003_20100722.cs...

Thanks Frank and Kolusu for your help.

Thanks Frank for your Quick Response. Q1: The input file record format is FB and the LRECL is 110.It would be great if you can show me how to pass the date constant to Header2. Q2.Initially I was trying my requirement using DISPLAY operator of ICETOOL instead of SORT report writer. However I was not...

I have the following questions relate to Sort reports Q1 I am using the following SORT to create a report. However the date is displayed as 29-03-2010 in the report. Instead my requirement is to display the date as 29-MAR-2010 in the report. Is there any date format that displays the month name ?. S...

My requirement is to get the first starting position of a string (ZZZ) if it's found in a record. Similar to POS function used in REXX. I used the following jcl and getting the correct results. I feel the Sort JCL I used can be simplified to achieve the results in a better way. Appreciate if someone...

Incredible Sort logic.
I tested your ICETOOL jcl and results are as per my expectation.
Thanks Kolusu for your timely help.