IBM Mainframe Forum

by **RalphEagle** » Wed Feb 20, 2019 8:45 pm

Dear everyone,

I have a file with records packed into the hexadecimal notation ; the hex look like
0012102
120187D

Now, much of the other records have C in place of the last D. I would like to find out the logical expression which will indicate to DFSORT to pick up only records in which the last character is (in hex view)
[any-digit]
D

Thank you for your help and time,

by **NicC** » Wed Feb 20, 2019 8:51 pm

The brute force way would be to use 0D through 9D in your INCLUDE statements - only 10 conditions

by **RalphEagle** » Wed Feb 20, 2019 8:58 pm

Indeed ; do you know of any less cumbersome way to deal with it ? For example, the find option allows P'#' to search for any numeric character... Isn't there anything similar in DFSORT ?

by **enrico-sorichetti** » Wed Feb 20, 2019 9:15 pm

did You ever hear about the format of negative packed numbers ???

by **RalphEagle** » Wed Feb 20, 2019 10:19 pm

It seems to me that packed numbers are represented with a final letter to indicate their sign: C for positive, D for negative, and I do not remember the others.

by **enrico-sorichetti** » Wed Feb 20, 2019 11:46 pm

and I do not remember the others.

but the principle of operations does :mrgreen:

Select all

┌───────┬────────────────────────────┐
│       │ Recognized As              │
│ Code  ├─────────┬──────────────────┤
│Binary │ Digit   │ Sign             │
├───────┼─────────┼──────────────────┤
│    0  │       0 │ Invalid          │
│    1  │       1 │ Invalid          │
│   10  │       2 │ Invalid          │
│   11  │       3 │ Invalid          │
│  100  │       4 │ Invalid          │
│  101  │       5 │ Invalid          │
│  110  │       6 │ Invalid          │
│  111  │       7 │ Invalid          │
│ 1000  │       8 │ Invalid          │
│ 1001  │       9 │ Invalid          │
│ 1010  │ Invalid │ Plus             │
│ 1011  │ Invalid │ Minus            │
│ 1100  │ Invalid │ Plus - preferred │
│ 1101  │ Invalid │ Minus -preferred │
│ 1110  │ Invalid │ Plus             │
│ 1111  │ Invalid │ Plus (zone)      │
└───────┴─────────┴──────────────────┘

 

by **NicC** » Thu Feb 21, 2019 3:16 pm

So

Select all

LT,0

And why should DFSort, which precedes ISPF by a number of years, have the same facilities?

by **RalphEagle** » Fri Feb 22, 2019 8:08 pm

NicC wrote:So
Select all

LT,0

And why should DFSort, which precedes ISPF by a number of years, have the same facilities?

I finally did this the other way around: I omitted every record greater than 0 (not sure if it's more/less/same efficient). However this still required to unpack the numbers, which I did from PD to FS format.

I also wasn't truly aware that DFSORT was there way before ISPF

by **enrico-sorichetti** » Fri Feb 22, 2019 9:48 pm

However this still required to unpack the numbers,

not for the comparison .

IBM Mainframe Forum

Find records with any digit followed by D

Find records with any digit followed by D

Re: Find records with any digit followed by D

Re: Find records with any digit followed by D

Re: Find records with any digit followed by D

Re: Find records with any digit followed by D

Re: Find records with any digit followed by D

Re: Find records with any digit followed by D

Re: Find records with any digit followed by D

Re: Find records with any digit followed by D