Anmelden

View Full Version : Probleme bei Submit JOB mit CALL auf ein CL-Programm mit Parametern


nico1964
10-02-23, 10:16
Hallo
ich habe in einem CL-Programm folgenden Aufruf eingebaut:

/* SBMJOB CMD(CALL PGM(SNDBAUZI) PARM(&IDXPFAD +
&DMSIDX &USRPFAD &DMSPDF &ITPPDF)) USER(IRDENWER) */
CALL PGM(SNDBAUZI) PARM(&IDXPFAD &DMSIDX &USRPFAD &DMSPDF &ITPPDF)

Wie ihr hier sehen könnt, habe ich den Submit derzeit durch einen CALL ersetzt, da mit beim SUBMIT die Parameter auf 32 Zeichen abgeschnitten werden.

Die Parameter sind in beiden Programmen ident definiert mit -*CHAR 100

im 2. CL werden dann folgende Befehle durchgeführt:

COPY OBJ(&IDXPFAD) TODIR(&DMSIDX) +
FROMCCSID(1252) TOCCSID(1252)


COPY OBJ(&USRPFAD) TODIR(&DMSPDF) +
FROMCCSID(1252) TOCCSID(1252)


COPY OBJ(&USRPFAD) TODIR(&ITPPDF) FROMCCSID(1252) +
TOCCSID(1252)


DLTSPLF FILE(WPRINTER)

USER des ausführenden CL-Programms und der USER beim SBMJOB haben idente Berechtigungen

Vielleicht hat ja jemand von euch eine IDEE oder ein ähnliches Problem schon gelöst

LG
Andreas
BenderD
10-02-23, 10:25
... die sauberste Variante ist, für das Programm einen command zu basteln. Die Schmuddellösung ist, den call in einen String zusammenbasteln und beim SBMJOB unter RQSDTA zu übergeben.
Fuerchau
10-02-23, 11:16
Das ist immer das Beste, wenn man das nicht möchte/kann gibts nur eine Lösung:
Zeichenparameter müssen genau in der Länge (oder größer) übergeben werden wie das Programm es erwartet. Dazu ist die Zeichenkette in Hochkomma einzubetten.
Zahlwerte können nur als Zoned in Hochkomma oder als Default Packed(15:5) übergeben werden.

Bei den Zeichenwerten kann man auch einfach einen Ausdruck vewenden, wenn die definierte länge passt.
Z.B. &IDXPFAD *cat 'X'
Der Trick ist, dass die Zeichenkette dann automatisch in Hochkomma gepackt wird und 1 Zeichen länger ist. Da nur Pointer ans Programm übergeben werden und das Zielprogramm die Länge kürzer definiert hat, sieht das Programm das 'X' nicht.
nico1964
10-02-23, 11:31
&IDXPFAD wird wie folgt erstellt:
CHGVAR VAR(&IDXPFAD) VALUE('/HOME/' *TCAT &USER *TCAT +
'/' *TCAT &IDXNAME)
&IDXNAME wie folgt:
CHGVAR VAR(&IDXNAME) VALUE('BAUZI_' *CAT &PARTNERNR *CAT +
'_' *CAT &LFDNUMMER *CAT '_' *CAT +
%SUBSTRING(&DATE 1 2) *CAT +
%SUBSTRING(&DATE 3 2) *CAT +
%SUBSTRING(&DATE 5 2) *CAT '_' *CAT +
%SUBSTRING(&TIME 1 2) *CAT +
%SUBSTRING(&TIME 3 2) *CAT +
%SUBSTRING(&TIME 5 2) *CAT '.IDX')

Und wenn ich den &IDXPFAD im SNDBAUZI im CALL im Debugger anschaue steht alles unter Hochkomma
beim SBMJOB schneidet das Programm jedoch ab.
Fuerchau
10-02-23, 11:43
Klar, da der SBMJOB das Kommando dort an den Commandprozessor übergibt und dieser Leerzeichen wieder entfernt.
Die Anzeige im Debugger mit Hochkomma zeigt nur, dass es eine Char-Variable ist.
Da du keine Hochkomma in den Inhalten hast nimm je Variable eine 2. mit 2 Bytes länger und mach einen
&NVar = '''' *cat &Var *cat ''''
Und übergebe diese an den SBMJOB.
Warum machst du für den Aufruf kein CMD? Da hast du solche Probleme absolut nicht.

Wie gesagt, Zeichenparameter müssen beim SBMJOB in Hochkomma erfolgen, da Leerzeichen bis auf den Default 32 gekürzt werden.
Dies ist schon seit V2R1 so (war mein erstes Release).
K_Tippi
10-02-23, 17:26
Hallo versuch mal chgvar(''' *cat &kkk *cat.... und am Ende *cat ''' Damit müsste alles im String stehen
nico1964
16-02-23, 13:29
Habe jetzt ein X an die letzte Stelle gestellt und jetzt funktioniert es. Danke für die Unterstützung, das nächste Mal werde ich einen Command bauen und diesen submitten.
Danke