Hello,
first off all, thanks for developing and maintaining this great piece of
software.
We are using the latest CVS Version of tn5250 and have a problem with a
wrong cursor position in a procedure written for the /36 environment.
I'll append the code in question to the mail. The program is prompting
for input ('wieviel Kopien wollen Sie gedruckt haben? ( 0 2 )'). In
client acces the cursor is then positioned behind the prompt. In tn5250
the cursor is positioned at the top left of the screen. It can be moved
to the input field to proceed with the program, however.
Let me know, if I can provide more input to this problem.
Greetings,
Peter Ganten
Here is the code:
// COPY LIBRARY-P,NAME-DRUFK,RECL-120,REF-000035,DATE-03/01/21,TIME-1531
// * ' Das Programm - D R U F K F - wurde aufgerufen'
// * ' Druck Bordero Tabellierpapier weiss (TABW) ! '
// IFF ACTIVE-'DRUFKD,DRUFK,DRURKD,DRURKT,SDGN##,SLLFKV, +
SLLFKP,FKS300,VERARB,PLDASI,DRURKFKN,DRURKW,AKOABRTG' GOTO W
// * 'Programm kann nicht ausgeführt werden, da andere Verarbeitung
aktiv.'
// * 'der Job wird in 3 Sec. autom. abgebrochen!'
// WAIT INTERVAL-000003
// CANCEL
// TAG W
SLLFK
// IF ?USER?=STY GOTO S
// * 'wieviel Kopien wollen Sie gedruckt haben? ( 0 2 )'
// IF ?R?=0 GOTO C0
// LOAD DRUFKF
// SWITCH 11110010
// PRINTER NAME-FKLISTE,FORMSNO-TABB,COPIES-2,DEVICE-P5
// PRINTER NAME-PROTOKOL,FORMSNO-TABB,COPIES-1,DEVICE-P5
// FILE NAME-GRENZEFK
// FILE NAME-SDGTAGBE,DISP-SHR
// FILE NAME-AVORLDAT,DISP-SHR
// FILE NAME-KUNDSTAM,DISP-SHR
// FILE NAME-KUNDSANH,DISP-SHR
// FILE NAME-INFOTEXT,DISP-SHR
// FILE NAME-SDGGGVS,DISP-SHR
// FILE NAME-FIRMSTAM,DISP-SHR
// FILE NAME-GRENZSPB,RECORDS-300,EXTEND-30
// RUN
// GOTO CE
// TAG C0
// LOAD DRUFKF
// SWITCH 11110000
// PRINTER NAME-FKLISTE,FORMSNO-TABB,DEVICE-P5
// PRINTER NAME-PROTOKOL,FORMSNO-TABB,COPIES-1,DEVICE-P5
// FILE NAME-GRENZEFK
// FILE NAME-SDGTAGBE,DISP-SHR
// FILE NAME-AVORLDAT,DISP-SHR
// FILE NAME-KUNDSTAM,DISP-SHR
// FILE NAME-KUNDSANH,DISP-SHR
// FILE NAME-INFOTEXT,DISP-SHR
// FILE NAME-SDGGGVS,DISP-SHR
// FILE NAME-FIRMSTAM,DISP-SHR
// FILE NAME-GRENZSPB,RECORDS-300,EXTEND-30
// RUN
// TAG CE
// LOAD DRUSPB
// PRINTER NAME-SPEDBUCH,FORMSNO-TABB,DEVICE-P5
// FILE NAME-SDGTAGBE,DISP-SHR
// FILE NAME-AVORLDAT,DISP-SHR
// FILE NAME-KUNDSTAM,DISP-SHR
// FILE NAME-KUNDSANH,DISP-SHR
// FILE NAME-INFOTEXT,DISP-SHR
// FILE NAME-SDGGGVS,DISP-SHR
// FILE NAME-FIRMSTAM,DISP-SHR
// FILE NAME-GRENZSPB,RETAIN-S
// RUN
// GOTO E
// TAG S
// * 'wieviel Kopien wollen Sie gedruckt haben? ( 0 2 )'
// IF ?R?=0 GOTO C0S
// LOAD DRUFKF
// SWITCH 11110010
// PRINTER NAME-FKLISTE,FORMSNO-TABB,COPIES-2,DEVICE-P1
// PRINTER NAME-PROTOKOL,FORMSNO-TABB,COPIES-1,DEVICE-P1
// FILE NAME-GRENZEFK
// FILE NAME-SDGTAGBE,DISP-SHR
// FILE NAME-AVORLDAT,DISP-SHR
// FILE NAME-KUNDSTAM,DISP-SHR
// FILE NAME-KUNDSANH,DISP-SHR
// FILE NAME-INFOTEXT,DISP-SHR
// FILE NAME-SDGGGVS,DISP-SHR
// FILE NAME-FIRMSTAM,DISP-SHR
// FILE NAME-GRENZSPB,RECORDS-300,EXTEND-30
// RUN
// GOTO CES
// TAG C0S
// LOAD DRUFKF
// SWITCH 11110000
// PRINTER NAME-FKLISTE,FORMSNO-TABB,DEVICE-P1
// PRINTER NAME-PROTOKOL,FORMSNO-TABB,COPIES-1,DEVICE-P1
// FILE NAME-GRENZEFK
// FILE NAME-SDGTAGBE,DISP-SHR
// FILE NAME-AVORLDAT,DISP-SHR
// FILE NAME-KUNDSTAM,DISP-SHR
// FILE NAME-KUNDSANH,DISP-SHR
// FILE NAME-INFOTEXT,DISP-SHR
// FILE NAME-SDGGGVS,DISP-SHR
// FILE NAME-FIRMSTAM,DISP-SHR
// FILE NAME-GRENZSPB,RECORDS-300,EXTEND-30
// RUN
// TAG CES
// LOAD DRUSPB
// PRINTER NAME-SPEDBUCH,FORMSNO-TABB,DEVICE-P1
// FILE NAME-SDGTAGBE,DISP-SHR
// FILE NAME-AVORLDAT,DISP-SHR
// FILE NAME-KUNDSTAM,DISP-SHR
// FILE NAME-KUNDSANH,DISP-SHR
// FILE NAME-INFOTEXT,DISP-SHR
// FILE NAME-SDGGGVS,DISP-SHR
// FILE NAME-FIRMSTAM,DISP-SHR
// FILE NAME-GRENZSPB,RETAIN-S
// RUN
// TAG E
// SWITCH 00000000
// CEND
--
Peter H. Ganten <[EMAIL PROTECTED]> fon: +49 421 22 08 114
Geschäftsführer fax: +49 421 22 08 115
univention_ GmbH http://www.univention.de/ mobil: +49 170 47 25 652
_______________________________________________
This is the Linux 5250 Development Project (LINUX5250) mailing list
To post a message email: [EMAIL PROTECTED]
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/linux5250
or email: [EMAIL PROTECTED]
Before posting, please take a moment to review the archives
at http://archive.midrange.com/linux5250.
