Re: RPG compiler internal error code 1

The RPG compiler is a marvel, but I was compiling a pretty average program and it got this:

MCH3601    Escape                  40   07/27/21  19:18:00.080721 QRN4MAIN     QRPGLE      *STMT    QRN4MAIN    QRPGLE      *STMT
                                     From module . . . . . . . . :   GRPFGCX3
                                     From procedure  . . . . . . :   gen_bif_timestamp
                                     Statement . . . . . . . . . :   21
                                     To module . . . . . . . . . :   GRPFGCX3
                                     To procedure  . . . . . . . :   gen_bif_timestamp
                                     Statement . . . . . . . . . :   21
                                     Message . . . . :   Pointer not set for location referenced.
                                     Cause . . . . . :   A pointer was used, either directly or as a basing
                                       pointer, that has not been set to an address.
RNS9311    Completion              50   07/27/21  19:18:00.256725 QRN4CPP      QDEVTOOLS   *STMT    QCMD        QSYS        01C8
                                     From module . . . . . . . . :   GRP4CPP
                                     From procedure  . . . . . . :   cleanup
                                     Statement . . . . . . . . . :   19
                                     Message . . . . : Compilation stopped. Internal failure occurred. Error code
                                       is 1.
                                     Cause . . . . . :   The possible error codes are: 1  - Failure occurred in the
                                       compiler front end. 2  - Failure occurred while  exiting the command. 3  -

The clue was the "gen_bif_timestamp".  The program had this statement:

ShipTimestamp = %timestamp( %date(OHSDTE:*CYMD) : %time(OHSTME) );

OHSDTE and OHSTME are both defined as packed decimal 7.0.

The problem was a single character - the colon was supposed to be a +.

I realized I may have been thinking SQL's TIMESTAMP function instead of RPG's %timestamp bif.  Hopefully the compiler can be modified to catch this error.

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx>

/