Re: RPG compiler internal error code 1

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Peter,

If you're up-to-date on PTFs, I would highly recommend reporting this 
bug to IBM.   If you're posting it to RPG400-L, you're really just 
blowing off steam -- we can't fix it :-)

-SK


On 7/28/2021 1:30 PM, Peter Dow wrote:
> 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>
>
> /