RE: INFDS -- RPG400-L

This works for me:

 *------------------
Fddb500p   o    e             printer usropn
F                                     infds(infds)
D infds           ds
D  curLine              367    368i 0

Phil

Phil,

I changed the subfield spec from binary to integer and the program didn't
blow.  But, I saw something very interesting.  I use curLine to check when
to print exception headings; put the program into debug and checked the
value before first output to the printer file.  When defined as integer
curLine=6448.  But, if you define curLine as binary (per the specs in File
Management) curLine=16448 before the write (dump value was curLine='4040'x)
and you abend with "receiver too small to hold result."  Anyway, with the
definition as integer, after the first write curLine=6, which is what I
would expect.  I guess I'll leave it defined as integer, but I'd sure like
to know why the binary definition isn't working.  Thanks guys.

Buzz


> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of Jim Franz
> Sent: Tuesday, April 09, 2002 8:12 PM
> To: rpg400-l@midrange.com
> Subject: Re: INFDS
>
>
> i went to the info center
> http://publib.boulder.ibm.com/pubs/html/as400/v5r1/ic2924/index.htm
> selected programming in left column, then rpg reference
> in Adobe, goto page 91 - 94 (printed page# not the same)
> have not done this in years. Assume you are using Post opcode?
> jim
>
> ----- Original Message -----
> From: "Buzz Fenner" <bfenner@jonesborocwl.org>
> To: <rpg400-l@midrange.com>
> Sent: Tuesday, April 09, 2002 5:57 PM
> Subject: RE: INFDS
>
>
> > I totally agree.  But, when using those offsets in a program, I get an
> abend
> > and viewing the dump shows a hex value of '4040'x.
> >
> >
> > According to my layouts, it should still be at that position.
> >
> > > -----Original Message-----
> > > From: Buzz Fenner [SMTP:bfenner@jonesborocwl.org]
> > > Sent: Tuesday, April 09, 2002 3:12 PM
> > > To:   RPG Discussion
> > > Subject:      INFDS
> > >
> > > I've been unable to find definitive info on how to define the offsets
> > > dealing with printer file I/O.  Used to, one could consult
> the good old
> > > CPF
> > > manual, but those days are gone.  I've gone to the iSeries Information
> > > Center website and have found some specs on common I/O
> feedback and the
> > > device dependent stuff, but no documentation on how you use them
> together.
> > > I used to be able to retrieve the printer file line number at offset
> > > 367-368
> > > (binary) but using that in an ILE RPG program gets me blanks.  Anyone
> > > point
> > > me in the right direction on good documentation for the file I/O
> feedback?
> > >
> > > Buzz Fenner
> > > mailto:bfenner@jonesborocwl.org
> > >
> > > "Consider the dafodill.  While you are doing that, I'll be over here
> > > looking
> > > through your stuff."
> > >
> > >
> > > _______________________________________________
> > > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list
> > > To post a message email: RPG400-L@midrange.com
> > > To subscribe, unsubscribe, or change list options,
> > > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > > or email: RPG400-L-request@midrange.com
> > > Before posting, please take a moment to review the archives
> > > at http://archive.midrange.com/rpg400-l.
> >
> >
> >
> ******************************************************************
> **********
> >
> ******************************************************************
> **********
> > ****************************************************
> > This message originates from Lincare Holdings Inc. It contains
> information
> > which maybe confidential or privileged and is intended only for the
> > individual or entity named above.
> > It is prohibited for anyone else to disclose, copy, distribute
> or use the
> > contents of this message.
> > All personal messages express views solely of the sender, which
> are not to
> > be attributed to Lincare Holdings Inc., and may not be copied or
> distributed
> > without this disclaimer.
> > If you received this message in error, please notify us immediately at
> > MailAdmin@lincare.com or (800) 284-2006.
> >
> ******************************************************************
> **********
> >
> ******************************************************************
> **********
> > ****************************************************
> >
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
> > _______________________________________________
> > This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/rpg400-l.
> >
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>

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