Quick and dirty - here is a diff of mods to JCRSBSDR which lists all subsystems, active or not. Full source up at
https://code.midrange.com/4ebea32d0b.html
diff -u org_jcrsbsd.rpgle mod_jcrsbsd.rgple
--- org_jcrsbsd.rpgle 2020-02-11 12:32:38.796696207 -0600
+++ mod_jcrsbsd.rgple 2020-02-11 12:32:09.572767054 -0600
@@ -13,6 +13,7 @@
/define f_Quscrtus
/define f_GetDayName
/define Qwcrneta
+ /define Quslobj
/COPY JCRCMDS,JCRCMDSCPY
dcl-f JCRSBSDP printer oflind(IsOverFlow) usropn;
@@ -96,12 +97,21 @@
//load active subsystem names to user space then to array
ApiHeadPtr = f_QUSCRTUS(UserSpaceName);
- callp QWCLASBS(UserSpaceName: 'SBSL0100': ApiErrDS);
- QwclasbsPtr = ApiHeadPtr + ApiHead.OffSetToList;
+ //callp QWCLASBS(UserSpaceName: 'SBSL0100': ApiErrDS);
+ callp QUSLOBJ(
+ UserSpaceName:
+ 'OBJL0100':
+ '*ALL *ALL':
+ '*SBSD':
+ ApiErrDS);
+ //QwclasbsPtr = ApiHeadPtr + ApiHead.OffSetToList;
+ QuslobjPtr = ApiHeadPtr + ApiHead.OffSetToList;
1b for ForCount = 1 to ApiHead.ListEntryCount;
- SBSArry(ForCount) = QwclasbsDS.QualSbsName;
- QwclasbsPtr += ApiHead.ListEntrySize;
+ //SBSArry(ForCount) = QwclasbsDS.QualSbsName;
+ SBSArry(ForCount) = QuslobjDS.ObjNam + QuslobjDS.ObjLib;
+ //QwclasbsPtr += ApiHead.ListEntrySize;
+ QuslobjPtr += ApiHead.ListEntrySize;
1e endfor;
sorta %subarr(SBSArry: 1: ApiHead.ListEntryCount);
On Tue, 2020-02-11 at 13:05 -0500, Sam_L wrote:
Rob,
In case it helps, this is what the output might look like:
JCRSBSDR List Subsystem Pool ID: PUB400
Tuesday 20-02-11 Page 0001
Subsystem Routing Entry PoolID Pools
#SYSLOAD #SYSLOADX - - - - - - 76 76
76 76
QBATCH QSYS 1 - - - - - 1 *BASE
QBATCH2 QSYS 1 - - - - - 1 *BASE
QBATCH3 QSYS 1 - - - - - 1 *BASE
QCMN QSYS 1 - - - - - 1 *BASE
QCTL QSYS 1 - - - - - 1 *BASE
QHTTPSVR QHTTPSVR 1 - - - - - 1 *BASE
QINTER QSYS 2 - - - - - 1 *BASE 2
*INTERACT
QINTER2 QSYS 2 - - - - - 1 *BASE 2
*INTERACT
QSERVER QSYS 1 - - - - - 1 *BASE
QSPL QSYS 1 2 - - - - 1 *BASE 2
*SPOOL
QSYSWRK QSYS 1 - - - - - 1 *BASE
QUSRWRK QSYS 1 - - - - - 1 *BASE
RZKHWORK QGPL - - - - - - 1 *BASE
** WWW.PUB400.COM **
[
https://www.medtronsoftware.com/img/MedtronMinilogo.bmp] Kevin Bucknum
Senior Programmer Analyst
MEDDATA / MEDTRON
120 Innwood Drive
Covington LA 70433
Local: 985-893-2550
Toll Free: 877-893-2550
https://www.medtronsoftware.com
CONFIDENTIALITY NOTICE
This document and any accompanying this email transmission contain confidential information, belonging to the sender that is legally privileged. This information is intended only for the use of the individual or entity named above. The authorized recipient of this information is prohibited from disclosing this information to any other party and is required to destroy the information after its stated need has been fulfilled. If you are not the intended recipient, or the employee of agent responsible to deliver it to the intended recipient, you are hereby notified that any disclosure, copying, distribution or action taken in reliance on the contents of these documents is STRICTLY PROHIBITED. If you have received this email in error, please notify the sender immediately to arrange for return or destruction of these documents.
midrange.com
