ebschubert
08-09-08, 11:16
Hallo an alle :)
Habe folgendes Problem:
Einfaches CL-PGM für Ja-/Nein-Abrage
/***********************************************
PGM PARM(&TITLE &QTXT &ANSWER)
DCLF FILE(QUESTION) RCDFMT(QUEST)
SNDRCVF RCDFMT(QUEST)
END: ENDPGM
Und die DDS dazu:
A DSPSIZ(24 80 *DS3)
A CA12
A R QUEST
A INZRCD
A KEEP
A BLINK
A ALARM
A MSGALARM
A WINDOW(7 14 3 51 *NOMSGLIN)
A WDWBORDER((*COLOR BLU) (*DSPART RI) (*CHAR ' '))
A WDWTITLE((*TEXT &TITLE))
A WDWTITLE((*TEXT 'F12=Abbruch') *LEFT *BOTTOM )
A TITLE 49A P
A QTXT 40A O 2 2
A ANSWER 1A B 2 45
A R ASSUME
A ASSUME
A 24 2' '
Wenn ich das DSPF mit STRSDA Option(3) teste ist alles iO.
Wenn ich aber das CL mit call MyCl('Titeltext' 'Fragetext' '' ) aufrufe, erscheinen meine Felder doppelt und versetzt (QTXT kommt mit in der Titelzeile) ???!!!!
Wer hat einen Tipp???
Vielen Dank vorab und viele Grüße
Andreas
Habe folgendes Problem:
Einfaches CL-PGM für Ja-/Nein-Abrage
/***********************************************
PGM PARM(&TITLE &QTXT &ANSWER)
DCLF FILE(QUESTION) RCDFMT(QUEST)
SNDRCVF RCDFMT(QUEST)
END: ENDPGM
Und die DDS dazu:
A DSPSIZ(24 80 *DS3)
A CA12
A R QUEST
A INZRCD
A KEEP
A BLINK
A ALARM
A MSGALARM
A WINDOW(7 14 3 51 *NOMSGLIN)
A WDWBORDER((*COLOR BLU) (*DSPART RI) (*CHAR ' '))
A WDWTITLE((*TEXT &TITLE))
A WDWTITLE((*TEXT 'F12=Abbruch') *LEFT *BOTTOM )
A TITLE 49A P
A QTXT 40A O 2 2
A ANSWER 1A B 2 45
A R ASSUME
A ASSUME
A 24 2' '
Wenn ich das DSPF mit STRSDA Option(3) teste ist alles iO.
Wenn ich aber das CL mit call MyCl('Titeltext' 'Fragetext' '' ) aufrufe, erscheinen meine Felder doppelt und versetzt (QTXT kommt mit in der Titelzeile) ???!!!!
Wer hat einen Tipp???
Vielen Dank vorab und viele Grüße
Andreas