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

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.

--
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.

--
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.