Re: Putting a Command String together in a Data Structure

At 02:43 06/22/2000 ,Gary Kuznitz wrote:
>I am obviously all wet in how to accomplish putting together a command in a
>data structure. Can anyone tell me how to create a Command with variable
>parms.

Here's some changes to your code that should get it pretty close to working.

   D 
CMD             DS 

  D  CmdName                     33     Inz('SBMJOB(CALL DATESUPDT PARM(')
   D  Fieldone                    10 

   * Enclose the numeric value in quotes so CALL won't convert it to a 
P15.5 number
   D                               2     Inz(' 
''')
   D  Numericfield2                7S 
0                                      Date Entered  "Num"
   D                               2     Inz(''')') 

  D  CmdLen                      15P 5  Inz(%Size(CMD))

   C                   call     'QCMDEXC'
   C                   parm                    CMD
   C                   parm                    CmdLen

Here's a code snippet that demonstrates a slightly different way to do the 
same thing.

   D CMD_OVRDSPF     C                   ') SHARE(*YES) +
   D                                     SECURE(*YES) OVRSCOPE(*ACTGRPDFN) +
   D                                     OPNSCOPE(*ACTGRPDFN)'

   D CmdText         S            128
   D CmdTextLen      S             15P 5 Inz(%Size(CmdText))

   D FileName        S             10

   C                   eval      CmdTxt = 'OVRDSPF FILE(' + %TrimR(FileName)
   C                              + CMD_OVRDSPF
   C                   call      'QCMDEXC'
   C                   parm      CMD_OVRDSPF   CmdText
   C                   parm                    CmdTextLen

hth
Pete


Pete Hall
pbhall@execpc.com
http://www.execpc.com/~pbhall
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---