Just guessing, If on the fly not possible, why not output the data into a temp file and make another pass where the seqnum can be treated as any normal integer ?
Karthik Premnath. On Fri, 3 Oct, 2025, 21:14 Billy Ashton, < [email protected]> wrote: > After further testing, it looks like I can do all sort of arithmetic on > other numeric fields, but can't seem to do anything on the SEQNUM field > on the fly. > > So, this will not work with SEQNUM: > BUILD=(001:(((SEQNUM,9,ZD,START=K1,INCR=I1), > ADD,-999999999),MUL,-1), . . . > > But it will work on other numeric fields like a single record with a > date field on the input. > > Any ideas? > > Thank you and best regards, > Billy Ashton > > > ------ Original Message ------ > From "Billy Ashton" <[email protected]> > To "IBM Mainframe Discussion List" <[email protected]> > Date 10/3/2025 12:16:13 PM > Subject Generate nines-complement in DFSORT > > >Hi all! I have a DFSORT that is generating a test file for me, and I > >currently pass in a starting numeric value and increment value to > >generate my first 9-byte field. This has been working fine and has been > >useful for lots of things. > > > >Now, though I want to take that first field, and make it a 9-s > >complement instead of the SEQNUM value. Can anyone tell me if there is > >a way to translate from 0123456789 to 9876543210, or to subtract the > >SEQNUM from 999999999? DFSORT does not allow incrementing by negative > >value for SEQNUM. > > > >Here is the relevant part of the SYSIN: > >OPTION COPY > >OUTFIL REPEAT=CNT, > >BUILD=(001:SEQNUM,9,ZD,START=K1,INCR=I1, > >. . . > > > >So if I start with K1 = 100000001, and with I1 = 4, my first few > >records start: > >100000001... > >100000005... > >100000009... > > > >and I want them to be > >899999998... > >899999994... > >899999991... > > > >Thank you and best regards, > >Billy Ashton > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
