Is SEQNUM defined with 9 digits? On Fri, Oct 3, 2025 at 2:57 PM S.Karthik Premnath < [email protected]> wrote:
> 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 > -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
