RE: 4.5. Example of reading/writing/updating records in a stream file

["Steinmetz, Paul" <PSteinmetz@xxxxxxxxxx>]

I already the two includes listed below, is there another include which contains the die procedure?

0012.00 D/copy IFSEBOOK/QRPGLESRC,IFSIO_H  
0013.00 D/copy IFSEBOOK/QRPGLESRC,ERRNO_H  

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael Ryan
Sent: Wednesday, January 04, 2012 12:00 PM
To: RPG programming on the IBM i / System i
Subject: Re: 4.5. Example of reading/writing/updating records in a stream file

The right include file I think. You need an ERRNO_H with the die
procedure in it. Here's the prototype:

D die             PR             1N
D    msg                       256A   const

And here's the procedure:

 ** end program with a (user-defined) escape message
P die             B
D die             PI             1N
D    msg                       256A   const

D QMHSNDPM        PR                  ExtPgm('QMHSNDPM')
D   MessageID                    7A   Const
D   QualMsgF                    20A   Const
D   MsgData                    256A   Const
D   MsgDtaLen                   10I 0 Const
D   MsgType                     10A   Const
D   CallStkEnt                  10A   Const
D   CallStkCnt                  10I 0 Const
D   MessageKey                   4A
D   ErrorCode                    1A

D dsEC            DS
D  dsECBytesP             1      4I 0 inz(%size(dsEC))
D  dsECBytesA             5      8I 0 inz(0)
D  dsECMsgID              9     15
D  dsECReserv            16     16
D  dsECMsgDta            17    256

D MsgLen          S             10I 0
D TheKey          S              4A

c     ' '           checkr    msg           MsgLen
c                   if        MsgLen<1
c                   return    *off
c                   endif

c                   callp     QMHSNDPM('CPF9897': 'QCPFMSG   *LIBL':
c                               Msg: MsgLen: '*ESCAPE':
c                               '*': 3: TheKey: dsEC)

c                   return    *off
P                 E

Send me an email if you want the procedure.

On Wed, Jan 4, 2012 at 11:19 AM, Steinmetz, Paul <PSteinmetz@xxxxxxxxxx> wrote:
> Example 4.5 will only compile using IFSEBOOK copy books if I comment out
>
>
>
> 0082.00  *                  callp     die('open(): ' + %str(strerror(errno)))
>
>
>
> What is needed for a successful compile?
>
>
>
> CPD5D02    Diagnostic              30   01/04/12  10:58:11.312650  QBNBIND      QSYS        *STMT    QBNBIND     QSYS        *STMT
>
>                                     From module . . . . . . . . :   QBNBSYMR
>
>                                     From procedure  . . . . . . :   QBNBSYMR__UnresolvedReferenceIterator
>
>                                     Statement . . . . . . . . . :   31
>
>                                     To module . . . . . . . . . :   QBNBSYMR
>
>                                     To procedure  . . . . . . . :   QBNBSYMR__SignalUnresolvedReferences
>
>                                     Statement . . . . . . . . . :   8
>
>                                     Message . . . . :   Definition not found for symbol 'DIE'.
>
>                                     Cause . . . . . :   No definition was found for reference DIE in *MODULE
>
>                                       object NBAPGM01TT in library QTEMP. The definition either does not exist or
>
>                                       is not of the same data or procedure type as the reference. Recovery  . . .
>
>                                       :   Try the Create Program (CRTPGM) command again, supplying an object that
>
>                                       contains a definition for symbol DIE.
>
>
>
> Thanks
>
>
> Paul Steinmetz
> AS/400 Operations Analyst
> Pencor Services, Inc.
> 471 Delaware Ave
> Palmerton Pa 18071
> 610-826-9117 work
> 610-826-9188 fax
> 610-920-1658 pager
> 610-349-0913 cell
> 610-377-6012 home
> psteinmetz@xxxxxxxxxx<mailto:psteinmetz@xxxxxxxxxx>
> http://www.pencor.com/
>
> --
> This is the RPG programming on the IBM i / System i (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.