Re: Special file parameter issue

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Hi Rick,

A WRITE statement in RPG will move the fields from your RPG program to 
the file (or SPECIAL file program in this case.)

A READ statement does the opposite, it moves the fields from the file 
(or SPECIAL program) to your RPG.

Therefore changing the fields before a READ doesn't make sense.  But it 
does make sense that the field values you change prior to a READ won't 
be reflected in the SPECIAL program.  After all...  READ doesn't send 
data out to the special program!  It just gets data as input from that 
program.




On 9/23/2010 1:28 PM, Rick.Chevalier@xxxxxxxxxxxxxxx wrote:
> I am attempting to use a special file program to handle I/O for a file conversion we are contemplating.  The issue I am having is that the parameters aren't changing between a write and a read operation.  I want to test the error handling if a read operation fails.  I can't get it to fail because the parms passed are the same ones I used to add a record even though I explicitly change them in the caller.  Any ideas?
>
> Caller:
> fLNP00507 cf e Special PgmName('LNP00507R')
>
> d TEST507 pr ExtPgm('TEST507')
>
> /Free
>
> lxBk = 8;
> lxMDte = 092210;
> lxMemo = 'Special file test memo';
> lxNote = 123456789;
> lxRec = 1;
> Write LNP0057;
>
> lxMemo = ' ';
>
> lxNote = 3;
> Read LNP00507;
>
> If Not %EOF(LNP00507);
> Dsply %Subst(lxMemo :1 :25);
> EndIf;
>
> *InLR = *On;
>
> /End-Free
>
> Special File program
> d LNP00507R pr ExtPgm('LNP00507R')
> d Action 1a Const
> d Status 1a
> d Error 5s 0
> d RecData LikeDS(LNP00507DA)
> // Layout of LNP00507 for received data format
> d LNP00507DA e ds ExtName(LNP00507)
> d Based(Template_Ptr)
>
> // Format of output record
> d SRVMEMOS e ds
>
> // Constanst for possible actions
> d OPEN_Request c 'O'
> d CLOSE_Request c 'C'
> d READ_Request c 'R'
> d WRITE_Request c 'W'
> d DELETE_Request c 'D'
> d UPDATE_Request c 'U'
> //-------------------------------------------------------------------
> p File_Add b
> d File_Add pi
>
> /Free
>
> LoanNumber = RecData.lxNote;
> MemoType = 'LNP00507';
> MemoTmsp = %TimeStamp(%Date(RecData.lxMDte :*MDY));
> FiservID = %EditC(RecData.lxMDte :'X') + %EditC(RecData.lxRec :'X')
> SrvMemLen = 70;
> SrvMemCnt = 1;
> SrvMemo = %TrimR(RecData.lxMemo);
> AddUser = sdsUser;
> AddTmsp = %Timestamp();
> AddProc = %TrimR(sdsPgmLib) + '/' + %TrimR(sdsProcPgm) + '.' +
> %TrimR(sdsProcMod) + '(File_Add)';
>
> Exec SQL
> Insert into SRVMEMOS
> (LOAN_NUMBER, SRV_MEMO_TYPE, SRV_MEMO_TIMESTAMP,
> SRV_MEMO_FISERV_ID, SRV_MEMO_LINE_LEN, SRV_MEMO_LINE_CNT,
> SRV_MEMO, ADD_USER, ADD_TIMESTAMP, ADD_PROC)
> Values (:LoanNumber, :MemoType, :MemoTmsp, :FiservID, :SrvMemLen,
> :SrvMemCnt, :SrvMemo, USER, CURRENT_TIMESTAMP,
> :AddProc);
>
> If SQLState<>  Success;
> Status = '2'; // Error condition
> Error = %Abs(SQLCod);
> EndIf;
>
> /End-Free
>
> p File_Add e
> //-----------------------------------------------------------------------
> p File_Read b
> d File_Read pi
>
> /Free
>
> MemoType = 'LNP00507';
> FiservID = %EditC(RecData.lxMDte :'X') + %EditC(RecData.lxRec :'X');
>
> Exec SQL
> Select
> SRV_MEMO_FISERV_ID, SRV_MEMO_LINE_LEN, SRV_MEMO_LINE_CNT, SRV_MEMO
> into :FiservID, :SrvMemLen, :SrvMemCnt, :SrvMemo
> from SRVMEMOS
> where Loan_Number = :RecData.lxNote and
> Srv_Memo_Type = MemoType and Srv_Memo_Fiserv_ID = FiservID;
>
> If SQLState<>  Success;
> Status = '1'; // End of file
> Clear RecData;
> EndIf;
>
> /End-Free
>
> p File_Read e
>
> Rick Chevalier
> IT Software Solutions - Loan Servicing
>
> ________________________________
> Privileged and Confidential. This e-mail, and any attachments there to, is intended only for use by the addressee(s) named herein and may contain privileged or confidential information. If you have received this e-mail in error, please notify me immediately by a return e-mail and delete this e-mail. You are hereby notified that any dissemination, distribution or copying of this e-mail and/or any attachments thereto, is strictly prohibited.