AW: Getting error message when calling procedure

Hi Mark,

did you fill all fields in your data structure or are there someones that
are not filled?
I'd suggest to add INZ to the data structure definition to make sure that
all numeric fields are correctly initialized.
The decimal data error may occor if numeric fields in a data structure
contain *Blanks.

Birgitta

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Taylor, Mark W
Gesendet: Donnerstag, 8. September 2005 19:15
An: RPG400-L@xxxxxxxxxxxx
Betreff: Getting error message when calling procedure


I am trying to write a procedure that accepts a record (as a data structure)
and writes it to
a file. Then, passes back an error code to tell the calling program whether
the write worked
or not.

There are no errors creating the modules or binding them into a program. But
I'm getting error
message RNQ0202 "The call to WRTORDX00 ended in error" when I call the
program.

When I look in the joblog I have error message MCH1202 "Decimal data error."
right after the
call to the program.

Is there something that I don't have setup correctly in the prototype?



Here is the calling procedure to test the WRTORDX00 procedure:

*************** Beginning of data ***************
     H Option(*NoDebugIO:*SrcStmt)

     FORDER     IF   E           K DISK    UsrOpn

      * Prototype
     D WrtOrdx00       PR             5  0
     D  InputRecord                        LikeRec(ORDRF:*Input)

      * Data Structures
     D  xRecord        DS                  LikeRec(ORDRF)

     D  ErrorCode      S              5  0

      /Free

          Open ORDER;

             xRecord.XHTKN1 = 100;             //Numeric Identifier
             xRecord.XHCPY1 = 1;               //Company Number
             xRecord.XHTYP1 = '1';             //Record Type
             xRecord.XHRPL1 = 'N';             //Order Type
             xRecord.XHMOR1 = '      1';       //Order Number
             xRecord.XHCAT1 = '10';            //Customer Category Co
             xRecord.XHCPO1 = 'PO1';           //PO Number
             xRecord.XHCON1 = 'MARK TAYLOR';   //Contact Name
             xRecord.XHFON1 = '123/456-7890';  //Phone Number
             xRecord.XHCDT1 = *Zeros;          //Create Date
             xRecord.XHCTM1 = *Zeros;          //Create Time
             xRecord.XHLCD1 = *Zeros;          //Last Changed Date
             xRecord.XHLCT1 = *Zeros;          //Last Changed Time
             xRecord.XHUSR1 = *Blanks;         //Last Changed By User
             xRecord.XHPGM1 = *Blanks;         //Last Changed By Prog

             ErrorCode = WrtOrdx00(xRecord);

           Close ORDER;

        *InLR = *On;
     /End-Free
****************** End of data ******************



Here is the procedure source code:


*************** Beginning of data ***************
     H NoMain Option(*NoDebugIO)

      * Order File
     FORDER   UF A E           K DISK    UsrOpn

      * Prototype
     D WrtOrdx00       PR             5  0
     D  InputRecord                        LikeRec(ORDRF:*Input)

      * Data Structures
     D OutputRecord    DS                  LikeRec(ORDRF:*Output)
     D KeyFields       DS                  LikeRec(ORDRF:*Key)

      * Work Fields
     D ErrorCode       S              5  0 Inz(*Zeros)



     P WrtOrdx00       B                   Export
     D WrtOrdx00       PI             5  0
     D  InputRecord                        LikeRec(ORDRF:*Input)

      /Free


        Open(E) ORDER;
        If %Error;
           ErrorCode = %Status;
        EndIf;


        If ErrorCode = *Zeros;

           // ** There is code here to do validation and what-not **

             Write(E) ORDRF OutputRecord;
             If %Error;
                ErrorCode = %Status;
             EndIf;

        EndIf;

        If %Open(ORDER);
           Close ORDER;
        EndIf;

        *InLR = *On;
        Return ErrorCode;

      /End-Free
    P WrtOrdx00       E
****************** End of data ******************
--
This is the RPG programming on the AS400 / iSeries (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.