RE: Putting a Command String together in a Data Structure -- MIDRANGE-L

Title: RE: Putting a Command String together in a Data Structure

Here's some examples of what I've done.

d Qcmd            s           3000
d QrySlt          s            512
d CrtDupP1        c                   'CRTDUPOBJ OBJ('
d CrtDupP2        c                   ') FROMLIB('
d CrtDupP3        c                   ') OBJTYPE(*FILE) TOLIB(QTEMP)'
d OpnQryf1        c                   'OPNQRYF FILE((OTHERPFILE)) QRYSLT('
d OpnQryf2        c                   ') KEYFLD(*FILE) OPNSCOPE(*ACTGRP)'
d Quote           c                   x'7D'
d QteDbl          c                   x'7F'

c                   Eval      Qcmd = CrtDupP1 + 'SOMEPFILE'
c                                  + CrtDupP2 + %Trimr(SOMELIB)
c                                  + CrtDupP3
c                   CallP(e) Qcmdexc(Qcmd : %Len(%Trim(Qcmd)))

- OR -

c                   Eval      QrySlt = Quote + 'CHRFLD *GE ' + QteDbl +
c                             %Char(NUMFLD1) + QteDbl +
c                             ' *AND CHRFLD *LE ' + QteDbl +
c                             %Char(NUMFLD2) + QteDbl + Quote
c                   Eval      Qcmd = OpnQryf1 + %Trimr(QrySlt) + OpnQryf2
c                   CallP(e) Qcmdexc(Qcmd : %Len(%Trim(Qcmd)))

HTH,
> Regards,
> Jon A. Erickson
> Sr. Programmer Analyst
> 800.COM Inc.
> 1516 NW Thurman St
> Portland, OR 97209-2517
>
> Direct: 503.944.3613
> Fax: 503.944.3690
> Web: http://800.com
>

-----Original Message-----
From: Gary Kuznitz [mailto:docfxit@calwest.net]
Sent: Thursday, June 22, 2000 12:44 AM
To: MIDRANGE-L@midrange.com
Subject: Putting a Command String together in a Data Structure

D CMD             DS
D CmdName        C          CONST('SBMJOB(CALL DATESUPDT PARM(')
D Fieldone
D   Space         C                   CONST(' ')
D Numericfield2        7 0                                      Date Entered "Num"
D ALpha2                    7    OVERLAY(Numericfield2) Date Entered "Char"
D CmdEnd         C                   CONST(')')

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. I realize now that I can't have a constant inside of a data structure
but I don't know how to define it. The second parm field I'd like to pass as a
character. Currently it's a date that's in Numericfield2 and I'd like to change
it into character so it will pass to the other program ok.

Thank you for any and all suggestions.

Gary Kuznitz
+---
| 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
+---