MAINFRAME - TIP OF THE DAY :
When you specified V for RECFM parameter, LRECL value is largest record in the file plus 4 bytes. These four bytes contain the actual length of each variable length record in the file
Programmers Voted for below topics. Please Vote for good Posts.
Thank You! for your feedback. Connecting to the server. Please Wait...
Posted: Fri Nov 15, 2013 8:03 am Post subject: equivalent file-manager command of file-aid command COPYBACK
My client is stopping use of file-aid, now they want us to use file-manager. We have been using following command in JCL for copying the last 5 records from input file, when the number of records in input file was unknown. Please see the below piece of code in file-aid:
//FILEAID1 EXEC PGM=FILEAID,REGION=1M,COND=(7,GE,CHKFILE)
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD DSN=ABC.TEMP,DISP=SHR
//DD01O DD DSN=&&TEST3,
//SYSIN DD *
$$DD01 COPYBACK OUT=05
If anybody uses filemanager in jobs, Please help me. I tried to google, but to no avail
Posted: Tue Nov 19, 2013 2:47 pm Post subject: FINDREP in sort
Please help me on the below issue.
In a file it has 4 fields. In these fields we may have special character’s like “ä, ö, ü and ß”. So we need to convert these special characters into “AU,OE,UE and SS”. Here we need to replace a single character with 2 character.
If we replace these, it should use the remaining spaces of the corresponding fields.
For an example:
Here the special character “ä” has to be changed as “AU”. This special character might come anywhere in the below fields. So We need to replace this without any displacement in the other fields. Since it should use the spaces which are available in the corresponding fields.it should not change the starting position of other fields.
Since every field is having some extra spaces, so OUTREC FINDREP should use these extra spaces while replacing it. Please help me on this.
Dept User id Name Area code
Code (10-35 length) (36-55 length) (56-69 length)
Have a loiok at the documentation of FINDREP. You can limit the bytes it looks at, and specify whether data will be shifted during a replacement. However, I don't know if it will work for you, as you are extending bytes which have data following the single source byte. If not, you'll have to relocate each field, where depends on your RECFM, FINDREP the field there, and then put the amended field back where it came from and remember to revert to the original record-lenght by dropping the extended data.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
Cobol Tutorial This cobol tutorial covers most of the important topics like STRING, UNSTRING, COMP, COMP-3.....
DB2 Tutorial DB2 Tutorial focuses on DB2 COBOL Programming. Explains in simple language. Some Chapters are locked, Forum members have free access to these chapters
CICS Tutorial This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming...
JCL Tutorial This is most popular JCL tutorial from mainframegurukul. It does contain important jcl ....
SORT Tutorial This Tutorial covers all important aspects of DFSORT. Has more SORT examples