Re: Uncle Bob

On 01/26/2026 2:51 PM EST Marco Facchinetti <marco.facchinetti@xxxxxxxxx> wrote:


And all the AIs forgot about QWCRTVCA and QWTRTVTA.

HTH
--
Marco Facchinetti

Mr S.r.l.

Tel. 035 962885
Cel. 393 9620498

Skype: facchinettimarco


Il giorno dom 25 gen 2026 alle ore 11:55 Birgitta Hauser <
Hauser@xxxxxxxxxxxxxxx> ha scritto:

I just run the same question though ChatGPT and CLAUDE.
Claude suggested to run the QUSRJOBI (which is one of the 2 Methods I know
... the other is calling a CL-Program that retrieves the Job attribute
(RTVJOBA).
ChatGPT insisted to use the *INRT-Indicator or the %INRT() BIF which both
do not exist.
None of them pointed to the program status data structure.

In either way the Program Status Data Structure, does not include a job
type.

Mit freundlichen Grüßen / Best regards

Birgitta Hauser
Modernization – Education – Consulting on IBM i
Database and Software Architect
IBM Champion since 2020

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
"Train people well enough so they can leave, treat them well enough so
they don't want to. " (Richard Branson)
"Learning is experience … everything else is only information!" (Albert
Einstein)


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Gad
Miron
Sent: Sunday, 25 January 2026 08:05
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Uncle Bob

What am I missing?


I asked Bob the following question:

As an expert RPG programmer, How can you tell if an RPG program runs in
Batch or Interactive (PSDS?)

I got the following
Using PSDS to Detect Batch vs Interactive Mode

The PSDS (Program Status Data Structure) contains information about the
program's execution environment. The key field for determining batch vs
interactive mode is at positions 244-253, which contains the job name.
Method 1: Check Job Type Field (Position 244-253)

Here's how to implement this in free-format RPGLE:

**FREE// Define PSDSDcl-Ds PSDS Qualified; PgmName Char(10)
Pos(1); Status Zoned(5:0) Pos(11); PrevStatus Zoned(5:0)
Pos(16); LineNum Char(8) Pos(21); Routine Char(8)
Pos(29); Parms Zoned(3:0) Pos(37); ExcpType Char(3)
Pos(40); ExcpNum Char(4) Pos(43); PgmLib Char(10)
Pos(81); ExcpData Char(80) Pos(91); ExcpId Char(4)
Pos(171); Date Char(8) Pos(191); Year Zoned(2:0)
Pos(199); LastFile Char(8) Pos(201); LastFileLib Char(10)
Pos(209); JobName Char(10) Pos(244); // Job name UserId
Char(10) Pos(254); // User profile JobNumber Zoned(6:0)
Pos(264); // Job number JobDate Zoned(6:0) Pos(270); // Job
date RunDate Zoned(6:0) Pos(276); // Run date (YYMMDD) RunTime
Zoned(6:0) Pos(282); // Run time (HHMMSS)End-Ds;Dcl-S JobType
Char(1);// Determine if batch or interactiveIf
%Subst(PSDS.JobName:1:1) >= '0' and %Subst(PSDS.JobName:1:1) <=
'9'; JobType = 'B'; // Batch job (starts with number)Else; JobType =
'I'; // Interactive job (starts with Q)EndIf;

txt1c1c-queryabapactionscript-3adaadocangular-htmlangular-tsapacheapexapl

applescriptaraasciidocasmastroawkballerinabashbatbatchbebeancountberrybibtex

bicepbladebslcc#c++cadencecairocdcclaritycljclojureclosure-templatescmakecmd
cobolcodeownerscodeqlcoffeecoffeescriptcommon-lispconsolecoqcppcqlcrystalcs
csharpcsscsvcuecypherddartdaxdesktopdiffdockerdockerfiledotenvdream-maker
edgeelispelixirelmemacs-lisperberlerlangff#f03f08f18f77f90f95fennelfish

fluentforfortran-fixed-formfortran-free-formfsfsharpfslftlgdresourcegdscript
gdshadergeniegherkingit-commitgit-rebasegjsgleamglimmer-jsglimmer-tsglsl
gnuplotgogqlgraphqlgroovygtshackhamlhandlebarshaskellhaxehbshclhjsonhlslhs
htmlhtml-derivativehttphxmlhyimbainijadejavajavascriptjinjajisonjljsjson
json5jsoncjsonljsonnetjssmjsxjuliakotlinkqlktktskustolatexleanlean4less
liquidlisplitllvmloglogolualuaumakemakefilemarkdownmarkomatlabmdmdcmdx
mediawikimermaidmipsmipsasmmmdmojomovenarnarratnextflownfnginxnimnixnu
nushellobjcobjective-cobjective-cppocamlpascalperlperl6phpplsqlpopolar
postcsspotpotxpowerquerypowershellprismaprologpropertiesprotoprotobufpsps1

pugpuppetpurescriptpypythonqlqmlqmldirqssrracketrakurazorrbregregexregexprel
riscvrsrstrubyrustsassassscalaschemescsssdblshshadershaderlabshell

shellscriptshellsessionsmalltalksoliditysoysparqlsplsplunksqlssh-configstata
stylstylussvelteswiftsystem-verilogsystemdtalontalonscripttasltcltempl
terraformtextftfvarstomltsts-tagstsptsvtsxturtletwigtyptypescripttypespec
typstvvalavbverilogvhdlvimvimlvimscriptvuevue-htmlvyvyperwasmwenyanwgslwiki
wikitextwitwlwolframxmlxslyamlymlzenscriptzigzsh文言
Method 2: Using Job Type from PSDS (Position 304)

In newer IBM i versions, there's a dedicated field:

**FREEDcl-Ds PSDS Qualified; // ... other fields ... JobType Char(1)
Pos(304); // 0=Batch, 1=InteractiveEnd-Ds;If PSDS.JobType = '1'; //
Interactive jobElse; // Batch jobEndIf;

txt1c1c-queryabapactionscript-3adaadocangular-htmlangular-tsapacheapexapl

applescriptaraasciidocasmastroawkballerinabashbatbatchbebeancountberrybibtex

bicepbladebslcc#c++cadencecairocdcclaritycljclojureclosure-templatescmakecmd
cobolcodeownerscodeqlcoffeecoffeescriptcommon-lispconsolecoqcppcqlcrystalcs
csharpcsscsvcuecypherddartdaxdesktopdiffdockerdockerfiledotenvdream-maker
edgeelispelixirelmemacs-lisperberlerlangff#f03f08f18f77f90f95fennelfish

fluentforfortran-fixed-formfortran-free-formfsfsharpfslftlgdresourcegdscript
gdshadergeniegherkingit-commitgit-rebasegjsgleamglimmer-jsglimmer-tsglsl
gnuplotgogqlgraphqlgroovygtshackhamlhandlebarshaskellhaxehbshclhjsonhlslhs
htmlhtml-derivativehttphxmlhyimbainijadejavajavascriptjinjajisonjljsjson
json5jsoncjsonljsonnetjssmjsxjuliakotlinkqlktktskustolatexleanlean4less
liquidlisplitllvmloglogolualuaumakemakefilemarkdownmarkomatlabmdmdcmdx
mediawikimermaidmipsmipsasmmmdmojomovenarnarratnextflownfnginxnimnixnu
nushellobjcobjective-cobjective-cppocamlpascalperlperl6phpplsqlpopolar
postcsspotpotxpowerquerypowershellprismaprologpropertiesprotoprotobufpsps1

pugpuppetpurescriptpypythonqlqmlqmldirqssrracketrakurazorrbregregexregexprel
riscvrsrstrubyrustsassassscalaschemescsssdblshshadershaderlabshell

shellscriptshellsessionsmalltalksoliditysoysparqlsplsplunksqlssh-configstata
stylstylussvelteswiftsystem-verilogsystemdtalontalonscripttasltcltempl
terraformtextftfvarstomltsts-tagstsptsvtsxturtletwigtyptypescripttypespec
typstvvalavbverilogvhdlvimvimlvimscriptvuevue-htmlvyvyperwasmwenyanwgslwiki
wikitextwitwlwolframxmlxslyamlymlzenscriptzigzsh文言
Method 3: Using API (Most Reliable)

For the most reliable method, use the QUSRJOBI API:





I see no such fields in RPG Reference Manual , PSDS section.

I must be missing something.


Gad
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.


--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.