Is it possible to create a concave light? OUTREC keeps only positions 1-80 for the OUTFIL output records, thus removing the identifier byte and sequence number we added in positions 81-83 with the INREC statement (we do not want these temporary fields in the OUTFIL output records). NOMATCH=(11,3), -
View all posts by Srini. /*, ----+----1----+----2----+----3
/*, ----+----1----+----2----+----3----+----4
Example: PARSE can be used for many different types of variable fields including delimited fields, comma separated values (CSV), tab separated values, blank separated values, keyword separated fields, null-terminated strings, and so on. The DATE1 operand corresponds to a Cyyyymmdd constant for todays date. One step to take the larger (expectation) of the two counts, "work out" what 00% would be (doesn't need anything but a simple subtraction, with the right data) and generate a SYMNAMES format file (fixed-length 80-byte records) with a SORT-symbol for a constant with that value. How do you get out of a corner when plotting yourself into a corner, Styling contours by colour and by line thickness in QGIS. Please post your sysouts including the syntax errors.. FWIW- Those are not ZD values. You can delete, rearrange and insert fields and constants. You have your counts. To covert the input data from lower case to upper case. In fact in DFSORT, BUILD is "aliased" to FIELDS in INREC, OUTREC and OUTFIL (says Frank Yaeger, who should know). You can create the reformatted OUTREC records in one of the following ways using unedited, edited, or converted input fields. Convert the date from mmddccyy to ccyymmm(julian date).
JCL - Basic Sort Tricks - tutorialspoint.com Why is there a voltage on my HDMI and coaxial cables? Site design / logo 2023 Stack Exchange Inc; user contributions licensed under CC BY-SA. ICETOOL pads the count record on the right with blanks to the record Overlay lets you change specific existing columns without affecting the entire record. . Thank you so much Bill. Where,
Multiplication division using DFSORT utility in Mainframe Overwrite input record content. Follow Up: struct sockaddr storage initialization by network format-string. The sequence number will be 1 for the first header record, 2 for the second header record and 3 for the third header record. You can assign up to 1000 parsed fields (%0-%999) to the variable fields you want to extract. produced by ICETOOL for this operation. We can even add spaces/zeroes/any character into the output record based on the requirement. It will be helpful in case where days of week coded as MON, TUE, WED which needs to be replaced to MONDAY, TUESDAY, WEDNESDAY, Requirement: To replace three char days of week to its fullest form, ----+----1----+----2----+----3----+----4----+----5
Learn more. If you use PGM=SORT, for example, that's a utility. JOINKEYS specifies the field on which the two files are compared. The same functionality can be achieved using ICETOOL also. OUTREC BUILD=(1,10,TRAN=UTOL,11,3, -
OUTREC FIELDS=(1,5,2X,6,10), SORT FIELDS=COPY
The output file will contain the unique employee numbers sorted in ascending order. Following records will be selected from the input file. JCL does not have BUILD/OUTREC statements. INCLUDE and OMIT statements can be used to select records using a variety of formats for todays date like Cyyyymmdd, Cyyyy/mm/dd, +yyyymmdd, Cyyyyddd, Cyyyy/ddd, +yyyyddd, Cyymmdd and so on. The IFTHEN WHEN=NONE clause identifies and operates on detail records (not HDR or TRL in positions 1-3); OVERLAY adds a 1 in position 81 and does not affect the rest of the record. INREC WHEN=GROUP can be used with BEGIN to identify a header record starting a group and END to identify a trailer record ending a group. DFSORT extends the reformatted input records from 80 bytes to 83 bytes to accommodate the identifier byte added in position 81 and the sequence number added in positions 82-83.
//SORTOUT DD DSN=DEPT.EMPL.DATA.OUTPUT2,
OUTREC FIELDS=(..,55,8,Y4W,TOJUL=Y4T)- data from 55th byte of length 8 will be converted to Y4T Julian date format. What is the purpose of non-series Shimano components? To subscribe to this RSS feed, copy and paste this URL into your RSS reader. The issue now I think is that having multiple BUILD/OUTREC gives a duplicate error. OUTREC OVERLAY=(60:SEQNUM,2,ZD,START=5,INCR=5) Generates the sequence number of length 2 from 60th byte. Can Martian regolith be easily melted with microwaves? All of the data which passes the INCLUDE will be on one of the three OUTFILs, and only one. OUTREC FIELDS=(..,55,8,Y4W,ADDYEARS,+2,TOJUL=Y4T(/)) adds +2 years to the date in the input file and converts it to Julian date before writing it to output file from 68th position. n can be from 1 to 32760. Convert the first five bytes ZD to FS in the input file. A WHEN=(logexp) clause is satisfied when the logical expression evaluates as true. Since hexadecimal representation occupies two digits for each character, here we will need output file with record length of 20. Thus total record length of output file is 40. If any match found in the list, respective data will be moved to output file. OUTREC FIELDS=(1,54,..)copies the first 54 bytes from the input file to output as it is. How to get the unload result in Packed decimal format if the table column is in INTEGER formmat in the DB2 table? 3) Sum new PD fields. The location and length of the number sold field.
OUTREC syntax - IF in SORT, FINDREP, OVERLAY - mainframegurukul.com So the following control statement will include only those records with a Cyyyymmdd date in positions 10-17 equal to todays date: Of course, you can use the other comparison operators (NE, GT, GE, LT, LE) as well as EQ. INREC FIELDS=(7:2,5,20:10,3) - Here we have two formattings, 7:2,5 - data at 2nd position of input file with length 5 copied to 7th position of output file, 20:10,3 - data at 10th position of input file with length 3 copied to 20th position of output file. IFTHEN clauses let you use sophisticated conditional logic to choose how different record types are reformatted. The second IFTHEN WHEN=(logexp) clause identifies and operates on trailer records (TRL in positions 1-3); OVERLAY puts todays date in the form ddd/yyyy in positions 11-18, adds a 9 in position 81, adds a ZD sequence number in positions 82-83 and does not affect the rest of the record. . OUTREC is processed after SORT/MERGE and SUM (if present) otherwise after INREC. than n, ICETOOL issues an error message and terminates the operation. It is as I said, it replaces the data. For example, you could use GT to select records with dates after today, or LT to select records with dates before today. If clause 5 is satisfied, its overlay item is applied and processing stops. You can mix p,m fields (fixed fields), and %nn fields (parsed fields) in BUILD and OVERLAY.
OUTREC in SORT - mainframegurukul.com . If clause 2 is not satisfied, its build items are not applied and processing continues. Using OUREC in SORT JCL - Example. OUTREC FIELDS=(1,29,..) Copies the first 29 bytes of data from input file to output as it is. Staging Ground Beta 1 Recap, and Reviewers needed for Beta 2, How to change the properties of a ps or an pds, Passing symbol value using DFSORT to file, mainframe - generate a report with sum of particular fields. You can delete, rearrange and insert fields and constants. Next . Is there any other way of achieving the same in JCL? Use one or more WHEN=(logexp) clauses to apply build or overlay items to your input records that meet specified criteria. OUTREC OVERLAY=(..,45:45,3,ZD,MUL,+10,TO=ZD,LENGTH=4) the data from 45th byte multiplies with 10 and writes the result to output of the length 4 from 45th position. . . If clause 1 is not satisfied, its overlay item is not applied and processing continues. If 6th position is SPACES, then text "EMPTY" is appended to input record. Requirement: To convert field at position 1-20 of input file to Upper case characters. //SYSIN DD *
JCL - SORT INREC Fields - JCL Tutorial - IBMMainframer Input file has one or more records for same employee number. OUTREC method INCLUDE COND=(5,1,GE,C'M'),FORMAT=CH OUTREC FIELDS=(10,3,20,8,33,11,5,1) SORT FIELDS=(20,8,CH,A,10,3,FI,A) SUM FIELDS=(38,4,BI) Theseexamples illustrate how a fixed-length input data set is sorted and reformatted for output. Statement SORT FIELDS=COPY is used here to indicate that all records will be copied from input file to output file. Any one run of which (even with the 10,000-record example) will outweigh the costs of a "Mainframe" solution running every day for the next 15+ years. Since the sequence number is not specified for the detail records, it will be blank. OUTFIL 03 gets all the not 0000s which are not 'Y'. Magic. JCL does not have BUILD/OUTREC statements. smith WEDNESDAY 25000
OUTREC: Specifies how records are reformatted after they are sorted, copied, ormerged. AKSHAY TUE 10000
v If WIDTH(n) is specified and the calculated record length is greater What are the RECFM and LRECL of your inputs? You could insert the current time as well as the current date in your records to produce a timestamp. But if any of the fields in your records have variable positions or lengths, you can use PARSE to treat them as fixed parsed fields in BUILD or OVERLAY. I have tried this but get a syntax error: I have managed to sort, sum and edit the data as required. // DISP=(,CATLG,DELETE),
Although you may invoke it via JCL, it is NOT JCL. SORT FIELDS=( logically appears after the INCLUDE (wherever you code it) and by using OPTION COPY it is clear, up front, and in a logical place, that it is a COPY operation. To insert 5 blanks, write 5X between the two fields. SORT FIELDS= (106,4,CH,A) SUM FIELDS= (162,4,BI,166,4,BI) OUTREC FIELDS= (106,4,162,4,166,4) Table 2 shows the output. The nature of simulating nature: A Q&A with IBM Quantum researcher Dr. Jamie We've added a "Necessary cookies only" option to the cookie consent popup. 2) Convert ZD to PD; example of ZD formats are '000000000002.459000-' and '0000000000000005.42-'. If you know that your count requires less than 15 digits, you can use The 0, 1 or 9 identifier byte added in position 81 allows us to sort the header records (0) first, followed by the detail records (1), and then the trailer records (9). So the following control statement will include only those records with a Cyyyy-mm-dd date in positions 14-23 greater than todays date 30 days. Minimising the environmental effects of my dyson brain. REFORMAT FIELDS=? // UNIT=TEST,SPACE=(CYL,(50,10),RLSE)
Not the answer you're looking for? If there is no match found NOMATCH=(11,3) , data at 11th position of input file will be copied as it is to output file. You can assign up to 1000 parsed fields (%0-%999) to the variable fields you want to extract. However while writing to output file, two spaces will be added between fields at position 1-5 and 6-10.
JCL - Examples - JCL Tutorial - IBMMainframer IFTHEN=(WHEN=NONE,BUILD=(1:1,80)) If no matches to conditions specified in WHEN, copy the 80 bytes data from input file to output as it is. 40 RAMESH 34000 03 20120410 50 Kishore 50000 02 20120408. The question is unclear, so this is just a guess at what was wanted. OUTREC FIELDS=(..,45,3,ZD,MUL,+10) data starts from 45th byte of length 3 will be multiplied by +10 and stores it in the same record as a continuation. value by not specifying WIDTH(n). By clicking Post Your Answer, you agree to our terms of service, privacy policy and cookie policy. How can I use it? So either of the following pairs of control statements will sort your records on input positions 1-6 and reformat them with todays date in the form Cyyyy-mm-dd in output positions 1-10, and input positions 1-6 in output positions 11-16. I added DIGITS(6) in step001 and modified below OUTFIL FNAMES=SETRC,NULLOFL=RC4,INCLUDE=(23,6,CH,GT,C'090.00'). count data set. 4-digit sequence number is added in output at position 10, starting at 1000 and incremented by 2 for every record.
For the input record: NEW YORK,ABC NEW JERSEY,XYZ,NEW YORK, The output record would contain: NY,ABC NJ,XYZ,NY. Exactly what else depends on your actual task, which we don't know, we only know of the solution you have chosen for your task. Would the magnetic fields of double-planets clash? AKSHAY 10000
Build give complete control over output file format. They are identical. OUTREC FIELDS=(..,5X,..) adds 5 spaces from 63rd position. Explanation In the above example, the SORT card will select the records, if the date in the input record is between the current date +/- 10days. steve MONDAY 20000
Reformat each record by specifying just the items that overlay specific columns. Example: Experienced software developer. 1) Sort fields. . OUTREC FIELDS=(..,30,30) Copies the input file data from 30th byte of length 30 copies to output as it is. Steps to Create the OUTREC Statement for Reformatting Records. Do roots of these polynomials approach the negative of the Euler-Mascheroni constant? In addition to this it will replace 3 letter day-of-week name at position 11 in input file with its full name at position 11. Example 1: Formating a file(USING OUTREC), SORT FIELDS=COPY - It is for copy records to output file. But if any of the fields in your records have variable positions or lengths, you can use PARSE to treat them as fixed parsed fields in BUILD or OVERLAY. . OUTREC IFTHEN=(WHEN=INIT,BUILD=(1:1,80)),..) Copies the 80 bytes data from input file to output as it is. SMITH 25000
Reformat each record by specifying all of its items one by one. Adding a sequence number to the output file. JOHN MON 08000
Lots of errors here. FINDREP - Can do find and Replace operation using this parameter. confused.. Can you please explain how this would work over the syntax i have tried. For details of what that mask is, look it up in the manual, as you will discover other useful pre-defined masks at the time. 11111AKSHAY HR 10000
2X in OUTREC FILEDS statement indicates two spaces and thus record length of output file will be 12. Back to top . If clause 2 is satisfied, its build items are applied and processing continues. Statement SORT FIELDS=COPY is coded to specify that all records should be copied from input file to output file. OUTREC FIELDS= (1,20,CTOTAL,5Z,21,10), ----+----1----+----2----+----3
IEBGENER copies the file in SYSUT1 to file in SYSUT2. INREC FIELDS=(1,20,X,25,6,X,) - Reformat the input file of length 1 to 30 bytes(1 to 20 bytes plus 25 to 6 bytes). Affordable solution to train a team and make them project ready. . INREC= and OUTREC= are invalid. Syntax for using FIELDS parameter in its simplest form:-, C ==> indicates the position in output field, P ==> indicates the position of input field, Requirement: To copy all the records from input file to output file. LENGTH=6 limits the result to six digits. You can assign up to 1000 parsed fields (%0-%999) to the variable fields you want to extract. Build gives you complete control over the items you want in your reformatted OUTRECrecords and the order in which they appear. IFTHEN clauses are processed in the following order: For this example, the IFTHEN clauses are processed as follows: PARSE fields using IFTHEN parameter : Click Here. SORT statement. When is the condition Overlay is the actualvalue to be replaced similarly. Passing symbol value using DFSORT to file, Check if input file record is sorted and if not it should abend, Writing characters after x amount of records using a JCL Sort, Formatting captured spufi results using JCL. 2 Incredible DFSORT Insert Separators Examples in JCL | Srinimf. by specifying an appropriately higher d value for DIGITS(d). record length and LRECL must be set to a particular value (for I have used OPTION COPY for clarity. For your second question, yes it can be done in one step, and greatly simplified. . SMITH WED 25000
OUTREC FIELDS=(1,29,JFY=(SHIFT=LEFT,..),..) Justifies the data in the first 29 bytes to left. . Likewise, the sequence number will be 1 for the first trailer record, 2 for the second trailer record and 3 for the third trailer record. What sort of strategies would a medieval military use against a fantasy giant? Does the below answer suffice? I want to create 3 outfiles depending on the below INCLUDE criteria from the input file. OK, perhaps 7.3m is not so large, but, when you have your "solution", the next person along is going to do it with 100,000 records, the next with 1,000,000 records. By clicking Post Your Answer, you agree to our terms of service, privacy policy and cookie policy. does not exceed a specific maximum (for example, 20 bytes). Display Filter View Print Options Help, WER268A SORT STATEMENT : SYNTAX ERROR, ****** ***************************** Top of Data ******************************. length. If clause 6 is satisfied, its build items are applied and processing stops. Previous You can mix p,m fields (fixed fields) and %nn fields (parsed fields) in BUILD and OVERLAY. OVERLAY - Replace the selected columns without impacting other columns. By using INREC, OUTREC, and OUTFIL statements to insert the current date or past date, or future date in a variety of formats and time in a variety of formats into your records. In addition I want only part of the record in the output file given by the below 3 BUILD's. CSM, CSPO, CSD, CSP, A-CSPO, A-CSM are registered trademarks of Scrum Alliance. WHEN=INIT clauses are processed before any of the other IFTHEN clauses. EDIT=(TTT.TT) is a used-defined edit mask, in this case inserting a decimal point, truncating the otherwise existing left-most digit, and having significant leading zeros when necessary. To include a single apostrophe in the string, you must specify it as two single apostrophes example, to include the word Toms you need to specify CToms. Example: Reformat different records in different ways by specifying how build, overlay, find/replace, or group operation items are applied to records that meet given criteria. This example shows how you can use three input files, each with a header record (HDR), detail records (DTL) and a trailer record (TRL), and create an output file with one header record with the current date, the sorted detail records, and one trailer record with the current date. Build gives you complete control over the items you want in your reformatted OUTREC records and the order in which they appear. Include 1 excludes what Include 2 and 3 will select, likewise Include 2 excludes what 1 and 3 will select. Did you read the documentation of COUNT (No, is the answer, so do so)? The DATE1(-)-30 operand corresponds to a Cyyyy-mm-dd constant for todays date minus 30 days. - the incident has nothing to do with me; can I use this this way? This is from the DFSORT Application Programming Guide: WRITE(countdd) Specifies the ddname of the count data set to be used, ICETOOL terminates the operation. . PMP, PMBOK, PMI-ACP and PMI are registered trademarks of the Project Management Institute, Inc. Professional Scrum Master, PSM, Professional Scrum Product Owner, PSPO etc. If you have any doubts or queries related to this chapter, get them clarified from our Mainframe experts on ibmmainframer Community! If you do not specify a WHEN=NONE clause, only the WHEN=INIT changes (if any) are applied to input records that do not meet the criteria for any of the WHEN=(logexp) clauses. Also skills in Mainframe. Example: OUTREC FINDREP=(IN=Csmall,OUT=CSMALL) finds the text small in the entire input file with the SMALL and writes to the output. IFTHEN=(WHEN=(30,5,CH,EQ,Csmall),OVERLAY=(45:C***)) overlays the marks of the student with *** who are belong to small. OUTREC= (1,10,50,4,40,4) Both examples will reformat the record so that it consists of the first 10 bytes of the input record, followed by the 4 bytes starting at position 50, followed by the 4 bytes starting at position 40. Do new devs get fired if they can't solve a certain bug? C'TUE',C'TUESDAY', -
HDR and TRL are added as identifiers to header/trailer, which is user defined and can be customised as per the users' needs. In the above example, employee number is in the field position 1,15. // DISP=(,CATLG,DELETE),
. Explnation: Above statement will convert data field at position (1-20) of input file to its uppercase form and write it to output file. If the data is going into that column automatically (which it is), then using the columns only creates work, introduces a new possibility of error, and makes the Sort Control Cards more difficult to maintain. Include 3 is doing the same except excluding 1 and 2 includes. How can I use SYNCSORT to format a Packed Decimal field with a specifc sign value? CSM, CSPO, CSD, CSP, A-CSPO, A-CSM are registered trademarks of Scrum Alliance. You can delete, rearrange and insert fields and constants. Reformat each record by specifying all of its items one by one. You can create the reformatted OUTREC records in one of the following ways using unedited, edited, or converted input fields. // UNIT=TEST,SPACE=(CYL,(50,10),RLSE)
It is used to reformat each record by specifying all of its items one by one. Time constants can also be produced in a variety of other characters, zoned decimal and packed decimal formats as well such as Chh:mm, Zhhmmssxx and Phhmmss. Is it suspicious or odd to stand by the gate of a GA airport watching the planes? Following records will be selected from the input file. . C'SAT',C'SATURDAY'), -
Tell them what you want to do, and they probably already have something you can use to do it with (when discussing this, bear in mind that these are technically data sets, not files). Build parameter can be used in OUTFIL statement also. //SYSIN DD *
OUTREC FIELDS=(..,45,30) copies the input file data from 45th byte of length 30 as it is to output starts at 45th byte. One way, if on-the-dot accuracy is not required, is to talk to the technical staff who manage your storage. OUTREC OVERLAY=(..,85:45,3,ZD,MUL,+10,TO=ZD,LENGTH=4) the data from 45th byte multiplies with 10 and writes the result to output of the length 4 from 85th position. To calculate percentage (Number of records in FILE1/Number of records in FILE2)*100 using DFSORT in Mainframe. // DCB=(RECFM=FB,LRECL=30,BLKSIZE=0),
SECTIONS is used to generate a report header for each transaction. All IFTHEN parameters have been processed. . FIELDS specifies an ascending 1-byte character control field at position 81 (the identifier byte added by INREC), and an ascending 5-byte character control field starting at position 8 (the key for the detail records). You can use INCLUDE and OMIT to select records using a variety of formats for past and future dates like Cyyyymmdd, Cyyyy/mm/dd, +yyyymmdd, Cyyyyddd, Cyyyy/ddd, +yyyyddd, Cyymmdd and so on. If WIDTH(n) is not specified, LRECL is set to the calculated required Letsinsert the below data types between the fields in the output file. JOHN THU 28000
Requirement 2: Copy input file to output file as it is, however, while writing output records, copy field at position 1-20 from input file followed by string ' TOTAL ' followed by 5 zeroes followed by field at position 21-30 from input file. if WRITE(countdd) is specified. BUILD parameter can be used on INREC and OUTREC statements in SORT card. Back to top What is the purpose of non-series Shimano components? is the protected brand of Scrum.org. Using SORT DATE Functions you can dynamically insert the date, like yyyy-mm-dd or any format instead of a constant date like 2021-01-01. . Use IFTHEN statements if you want to insert, rearrange, delete or overlay fields in different ways for different records. example of ZD formats are '000000000002.459000-' and '0000000000000005.42-'. It should be: Code: INREC FIELDS= (.) Connect and share knowledge within a single location that is structured and easy to search. Second step which uses INCLUDE/OMIT with the symbol in comparison to the second record-count, using NULLOUT or NULLOFL. TRAN=LTOU, can be used to convert data from lower case to upper case
All to set an RC. example, if DIGITS(10) is specified, 10 digits are used instead of 15. What is issuing the message? You can read my previous installment if you miss it. DFSORT/SYNCSORT or a subsequent program reading the files? 55555SMITH R&D 25000
INREC and OUTREC in Sort JCL -IBM Mainframes Data at position 11 in input file will be compared with CHANGE list. Example: Reformat each record by doing various types of find and replace operations. Note that if all of the fields in your records have fixed positions and lengths, you don't need to use PARSE. record length. REMOVECC removes the ANSI carriage control characters and ensures that the RECFM is FB rather than FBA. Specifies the record length and LRECL you want ICETOOL to use for the Example: INREC BUILD= (1,20,C'ABC',26:5C'*', 15,3,PD,EDIT= (TTT.TT),21,30,80:X) OVERLAY: Reformat each record by specifying just the items that overlay specific columns. WHEN=NONE clauses are processed after any of the other IFTHEN clauses. The overlay will be occurredin the final output record. CSM, CSPO, CSD, CSP, A-CSPO, A-CSM are registered trademarks of Scrum Alliance. There's nothing "wrong" with the control cards. Date constants can be produced in a variety of other characters, zoned decimal and packed decimal formats as well such as Cyyyy-mm, Zyyyymmdd and Pyyddd. OUTREC FIELDS=(1,80,SQZ=(..,PREBLANK=C'(),..)) Blanks out the (). Thanks for contributing an answer to Stack Overflow! The sort utility you use does have them. john MONDAY 08000
Write unique records to output. Each FILE DD has only 1 record from the below and all the records are copied to the sortout. You can use X or 1X to specify a single blank. . Example: Reformat each record by doing various types of find and replace operations. BUILD gives you complete control over the items you want in your reformatted OUTREC records and the order in which they appear. I don't know what "Code" tags are. present. When INREC is used reformatting of records is doneBEFOREthe sort. Does a summoned creature play immediately after being summoned by a ready action? JOHN 28000, //SORTSTEP EXEC PGM=SORT
C'WED',C'WEDNESDAY', -
This will make the whole process inefficient. Other usages with Inrecand Outrec:(SOurce IBM). TOT calculates the number of records in the input file. Take the counts from something which is already reading the data, and then you have something really simple, and efficient. Connect and share knowledge within a single location that is structured and easy to search. Lets assume N is 30 days. 1,6,ZD means "the information, at this moment, at start-position one for a length of six, which is a zoned-decimal format". Use a WHEN=ANY clause after multiple WHEN=(logexp) clauses to apply additional build or overlay items to your input records if they satisfied the criteria for any of the preceding WHEN=(logexp) clauses. Why did Ukraine abstain from the UNHRC vote on China? You can read my previous installment if you miss it. Not the answer you're looking for? Normally it will be given with Join Keys or during the sort. The output file will contain the unique employee numbers sorted in ascending order. (adsbygoogle = window.adsbygoogle || []).push({}). JIRA Workflow for Optimal Project Tracking, Automatically Assign Issues JIRA Automation, JIRADashboard Popular Gadgets for Agile Teams, Vertical Slice vs Horizontal Slice User Story. INREC and OUTREC do the same, but the only difference is the way reformatting is done. SORT FIELDS=COPY
Maybe I have it wrong but I was trying to have the first include exclude what would get selected in the second an subsequent includes. DIGITS can only be specified if The sequence number added in positions 82-83 will allow us to keep only the first header record and the first trailer record.