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