Re: Uncle Bob

Re-read the disclaimer. on all the AI output: "Don't blame me if I got it wrong, missed something, or hallucinated objects or precedents that never were. And don't blame my 'makers' either".

--Alan Cassidy


> On 01/26/2026 2:51 PM EST Marco Facchinetti <[email protected]> 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 <
> [email protected]> 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 <[email protected]> On Behalf Of Gad
> > Miron
> > Sent: Sunday, 25 January 2026 08:05
> > To: [email protected]
> > 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: [email protected] To subscribe, unsubscribe, or
> > change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: [email protected]
> > Before posting, please take a moment to review the archives at
> > https://archive.midrange.com/rpg400-l.
> >
> > Please contact [email protected] for any subscription related
> > questions.
> >
> >
> > --
> > This is the RPG programming on IBM i (RPG400-L) mailing list
> > To post a message email: [email protected]
> > To subscribe, unsubscribe, or change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: [email protected]
> > Before posting, please take a moment to review the archives
> > at https://archive.midrange.com/rpg400-l.
> >
> > Please contact [email protected] for any subscription related
> > questions.
> >
> >
> -- 
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: [email protected]
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: [email protected]
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
> 
> Please contact [email protected] for any subscription related questions.
-- 
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: [email protected]
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: [email protected]
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact [email protected] for any subscription related questions.