Re: SQL in Service Pgm Module

[Charles Wilt <charles.wilt@xxxxxxxxx>]

CRTRPGMOD is the wrong command.

CRTSQLRPGI OBJTYPE(*MODULE) is the correct one.

Charles

On Tue, Nov 26, 2024 at 8:11 AM (WalzCraft) Jerry Forss <
JForss@xxxxxxxxxxxxx> wrote:

> Not sure why this is giving me trouble.
>
> I have a service pgm that has been used for years that I want to make a
> change to.
> When I CRTRPGMOD (it is SQLRPGLE) it is failing saying the SQL is invalid.
>
> I am not even touching this export!!
>
> 040000     WorkDate = %Date(DateIso : *ISO);
> 040100     DateISOAlpha = %EditC(DateISO : 'X');
> 040200
> 040300     Exec SQL  Set :MonthName = MonthName( :WorkDate);
> ======>         aaa
> *RNF5347 30 a      040300  An assignment operator is expected with the
> EVAL operation.
> 040400
>
> *...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+
> Msg id  Sv   Statement    Message text
> *RNF7030 30        040300  The name or indicator EXEC is not defined.
> *RNF7030 30        040300  The name or indicator SQL is not defined.
>
> Entire Export
>
> //
> ======================================================================================
> // Convert Date To Alpha
> //
> ======================================================================================
>
> Dcl-Proc APIAlpDat      Export;
>
>   //
> ------------------------------------------------------------------------------------
>   // Input Parameters
>   //
> ------------------------------------------------------------------------------------
>
>   Dcl-pi *N             Char(20);
>     EntDate             Packed(8 : 0)       Const;
>     EntFormat           Char(4)             Const;
>   End-pi;
>
>   //
> ------------------------------------------------------------------------------------
>   // Local Variables
>   //
> ------------------------------------------------------------------------------------
>
>   Dcl-S AlphaDate       Char(20);
>   Dcl-S DateISO         Packed(8 : 0);
>   Dcl-S DateISOAlpha    Char(8);
>   Dcl-S MonthName       Char(9);
>   Dcl-S WorkDate        Date;
>
>   //
> ------------------------------------------------------------------------------------
>   // Mainline
>   //
> ------------------------------------------------------------------------------------
>
>   Monitor;
>
>     Clear DateIso;
>     Clear MonthName;
>
>     // Process Data Type
>     Select;
>
>     // From Date Is CYYMMDD
>     When EntFormat = 'CYMD';
>       DateISO = %Dec(%Char(%Date(EntDate : *CYMD) : *ISO0) : 8: 0);
>
>     // From Date Is MMDDCCYY
>     When EntFormat = 'USA';
>       DateISO = %Dec(%Char(%Date(EntDate : *USA) : *ISO0) : 8: 0);
>
>     // From Date Is CCYYMMDD
>     When EntFormat = 'ISO';
>       DateISO = EntDate;
>
>     // From Date Is MMDDYY
>     When EntFormat = 'MDY';
>       DateISO = %Dec(%Char(%Date(EntDate : *MDY) : *ISO0) : 8: 0);
>
>     // From Date Is YYMMDD
>     When EntFormat = 'YMD';
>       DateISO = %Dec(%Char(%Date(EntDate : *YMD) : *ISO0) : 8: 0);
>
>     EndSl;
>
>     WorkDate = %Date(DateIso : *ISO);
>     DateISOAlpha = %EditC(DateISO : 'X');
>
>     Exec SQL  Set :MonthName = MonthName( :WorkDate);
>
>     // Build Alpha Date
>     AlphaDate = %Trim(MonthName) + ' ' +
>                 %SubSt(DateISOAlpha : 7 : 2) + ', ' +
>                 %SubSt(DateISOAlpha : 1 : 4);
>
>   On-Error;
>
>   EndMon;
>
>   Return AlphaDate;
>
> End-Proc;
>
>
>
> Subject to Change Notice:
>
> WalzCraft reserves the right to improve designs, and to change
> specifications without notice.
>
> Confidentiality Notice:
>
> This message and any attachments may contain confidential and privileged
> information that is protected by law. The information contained herein is
> transmitted for the sole use of the intended recipient(s) and should "only"
> pertain to "WalzCraft" company matters. If you are not the intended
> recipient or designated agent of the recipient of such information, you are
> hereby notified that any use, dissemination, copying or retention of this
> email or the information contained herein is strictly prohibited and may
> subject you to penalties under federal and/or state law. If you received
> this email in error, please notify the sender immediately and permanently
> delete this email. Thank You
>
> WalzCraft PO Box 1748 La Crosse, WI, 54602-1748
> www.walzcraft.com<http://www.walzcraft.com> Phone: 1-800-237-1326
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.