Re: Program Described File

I would probably use Paul's technique. It's character data...I wouldn't
look at the digit portion.

Don't know if it applies, but the manual has this about a Zone check:

The hexadecimal representation of a blank is 40. However, when a blank is
coded in the character entry, it is treated as if its hexadecimal
representation were F0, that is, as if it had the same zone as 0 through 9.
A blank in the input data satisfies two zone checks: one for a hexadecimal
4 zone, the other for a hexadecimal F zone.

Looks like a blank (x'40') is treated differently there; might be similar
with a digit check.


On Mon, Mar 17, 2014 at 1:59 PM, Paul Therrien <
paultherrien@xxxxxxxxxxxxxxxxxx> wrote:

Possible solution

IFILE01 NS 99 25NC1 26 C 27 C

Position 25 not '1', Position 26 & 27 both blank.


On 3/17/2014 1:39 PM, Cyndi Bradberry wrote:

I have a file with multiple record types. 3 of the 4 record types I need

to manipulate, the fourth I can safely ignore.

IFILE01 NS 01 25 C1
I 01 06 CLIENT

Rcd 1

I 07 21 ID
I 287 288 DYS

IFILE01 NS 02 25 CB
I 01 06 CLIENT

Rcd B

I 07 21 ID
I 49 49 N61
I 74 74 N62

IFILE01 NS 03 25NC1 26 CI 27 CD

Rcd /

I 01 06 CLIENT
I 07 21 ID
I 26 75 NAME

IFILE01 NS 99 25 Z2 25 D0

Rcd A

Here is a dsppfm of a portion of the file showing the different record

types:

2563050000000004044750111
256305000000000404475000\ID
256305000000000404475000B01
256305000000000404475

Here it is in Hex Over/Under with the portion being used for Record Id

highlighted

2563050000000004044750111 Rec Id 01
FFFFFFFFFFFFFFFFFFFFFFFFF44
256305000000000404475011100

256305000000000404475000\ID Rec Id 03
FFFFFFFFFFFFFFFFFFFFFFFFECC
256305000000000404475000094

256305000000000404475000B01 Rec Id 02
FFFFFFFFFFFFFFFFFFFFFFFFCFF
256305000000000404475000201

256305000000000404475 Rec Id 99
FFFFFFFFFFFFFFFFFFFFF444244
256305000000000404475000000


I keep getting a unidentified record type, always on the record I want

called Rec Id 99. What am I not doing correctly ? RTM is acceptable if you
point to the page in the book. I am V7R1.

Cyndi Bradberry | Programmer/Analyst
Idaho Housing and Finance Association
P.O. Box 7899, Boise, ID 83707-1899
Phone 208-331-4775| CyndiB@xxxxxxxx
www.idahohousing.com<http://www.idahohousing.com>

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.