Re: Uncle Bob

Exactly what I was going to suggest. However, we would need a host variable:

EXEC SQL
SELECT V_ACTIVE_JOB_TYPE
   INTO*:this_job_type*
   FROM TABLE(QSYS2.GET_JOB_INFO('*'));

Then check the THIS_JOB_TYPE RPG variable.

On 1/25/2026 4:37 AM, [email protected] wrote:
> Use SQL ?
>   
> SELECT V_ACTIVE_JOB_TYPE FROM TABLE(QSYS2.GET_JOB_INFO('*'))
>   
>   
>   
>   
> herbert
>   
>
>> 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.