Re: No %editc in V3R2!!!

[bmorris@xxxxxxxxxx]

>Date: Thu, 28 Dec 2000 16:38:00 -0500
>From: D.BALE@handleman.com
>
>Yeah, it looks like I'll have to make it a subroutine for now.  Thanks for
>your help.

Dan, I don't think there was anything in that subprocedure that entailed
it actually being a subprocedure.  If you make it a separate program,
you could call the program almost the same as Scott showed.  You'd need
to change the return value to a parameter, and change the "value"
parameters
to "const", but otherwise the code would be the same.

   D EditC           PR                  EXTPGM('XXXEDITC')
   D   result                       43A
   D   p_SrcVar                      *   const
   D   peEditCode                   1A   const
   D   peVarType                   10A   const
   D   peDigits                    10I 0 const
   D   peDecPos                    10I 0 const
   D   peFillChar                   1A   const options(*nopass)
   c                   callp     EditC(MyString : %addr(MyVar): 'K':
   c                                '*PACKED': 14: 2: '$')

To convert the subprocedure to a program, remove the P specs and
change the return statements to assignments to the result parameter.

Barbara Morris


+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---