QCMDEXC

[philsturm]

Hallo!

Nach stundelanger Suche habe ich keine Lösungsideen mehr und hoffe hier kann mit jemand weiterhelfen.

DQCMDEXC          PR                  extpgm('QCMDEXC')
D CMD                          255A   options(*varsize)
D                                     const            
D CMDLEN                        14  5 const            
 
 
Dclearpf          C                   const('clrpfm file(arbestap)')
 
 
/FREE 
      callp(e) qcmdexc (clearpf:%size(clearpf)); 
/END-FREE

Leider wird das clrpfm nicht ausgeführt. Woran kann das liegen?

Besten Dank!

[Fuerchau]

Lass das "options(*varsize)" weg und nimm statt dessen "const".

*varsize übergibt 2-Byte Längeninformation vorneweg.

Und CMDLEN ist 15 5, auch hier kann "const" nicht schaden.


PS:
const hattestt du ja schon

[philsturm]

Auch folgendes bringt leider keinen Erfolg.

DQCMDEXC          PR                  extpgm('QCMDEXC')
D CMD                          255A   const            
D CMDLEN                        15  5 const

[Fuerchau]

Schreib das Kommando bitte in Großbuchstaben!
QCMDEXC übersetzt nicht wie eine Kommandozeile.

Ansonsten schau mal ins Joblog.

[philsturm]

Das joblog sagt das mit der Datei bereits gearbeitet wird.

Allerdings merkwürdig, da das clrpfm die erste Verarbeitung der Datei im Programm ist...?

[Fuerchau]

Wenn du die Datei in den F-Bestimmungen nicht mit UC (Usropn) definiert hast, öffnet RPG direkt beim Start.

[Robi]

Dann sagt das joblog aber auch, das der qcmdexc ausgeführt wurde!
Warum mit der Datei gearbeitet wird ist eine andere Baustelle
Robi

[philsturm]

OK, Leute. Mit usropn klappts. Hätte man auch selbst drauf kommen können...

Schönes Wochenende!

[camouflage]

Anstelle von QCMDEXC kannst Du auch mit system arbeiten

HDFTACTGRp(*no) bnddir('QC2LE')
 
FmyFile    if   E             DISK    usropn
 
 *--- Call Commands                                          
Dsystem           PR            10I 0 EXTPROC('system')      
 * Commandstring                                             
D                                 *   VALUE OPTIONS(*STRING) 
 
C                   callp     system('CLRPFM myFile') 
C                   open      myFile           
 
....       
C                   close     myFile