Re: Bypass sign-on screen (ODBC connections and QAQQINI)

Le 11/09/2024 à 13:59, Marc Rauzier a écrit :

Le 11/09/2024 à 12:16, Patrik Schindler a écrit :

The overall picture should be: How to connect with any 5250 client —
with a specific device name configured — to my machine, so the "incoming
terminal request" gets directly "connected" to a *PGM, maybe using the
ACQ technique mentioned by Rob Behrend? There shall be no signon screen,
the *PGM is to be run with e. g. the default user profile, such as
QUSER.

Did you try OVRDSPF DEV(yourdev) command and then call your program in a batch job?

I will try it this week on PUB400 if I have enough time.

Does this quick and dirty code is something which help?

DDS file (TESTACQ)

A                                      DSPSIZ(24 80 *DS3)
     A          R F1
     A                                  1 70DATE
     A                                      EDTCDE(Y)
     A                                  2 70TIME
     A                                  3 70SYSNAME
     A            FLD001        25   O 12  9

CL program to be submitted to batch job

PGM PARM(&DEV)
DCLPRCOPT DFTACTGRP(*NO) ACTGRP(*NEW)
DCL VAR(&DEV) TYPE(*CHAR) LEN(10)
DCL VAR(&STSCDE) TYPE(*DEC) LEN(5 0)
DCLF FILE(TESTACQ)
CHGVAR VAR(&STSCDE) VALUE(0)
RTVCFGSTS CFGD(&DEV) CFGTYPE(*DEV) STSCDE(&STSCDE)
DOWHILE COND(&STSCDE *NE 50)
    DLYJOB DLY(30)
    RTVCFGSTS CFGD(&DEV) CFGTYPE(*DEV) STSCDE(&STSCDE)
ENDDO
CHGVAR VAR(&FLD001) VALUE('Hello World')
OVRDSPF FILE(TESTACQ) DEV(&DEV)
SNDRCVF RCDFMT(F1) WAIT(*YES)
ENDPGM

The device status must be "Signon Display" for the SNDRCVF command to work.