Try-AS/400 - Recent changes [en]

Wrkprb needs long time to start

PoC — Thu, 21 May 2026 22:14:33 GMT

rework: Does not work

← Older revision		Revision as of 00:14, 22 May 2026
Line 1:		Line 1:
	Over time, it might become apparent that '''Wrkprb needs longer time to start''', especially if the problem handling facility was used heavily on a slow machine.<ref>Like a 150.</ref>		Over time, it might become apparent that '''Wrkprb needs longer time to start''', especially if the problem handling facility was used heavily on a slow machine.<ref>Like a 9401-150.</ref>

	This stems from the fact that the used database files grow indefinitely, because they were created with the flag ''REUSEDLT'' disabled. That means, deleted records stay forever, but cannot be accessed. In my case, the PF had 36 MiB, and the accompanying LF 24 MiB.		__TOC__

	~~A possible solution would be to use~~ ''~~RGZPFM~~'' ~~to reorganise~~ the ~~database file. But~~ the ~~command refuses to work on an empty database file~~.~~<ref>One with no records, that~~ is.~~</ref>~~		== Problem description ==
			This stems from the fact that the used database files grow indefinitely, because they were created with the flag ''REUSEDLT'' disabled. That means, deleted records stay forever, but cannot be accessed. In my case, the PF had 36 KiB, and the accompanying LF 24 KiB. This is laughably small.

	~~Another possibility is to delete and recreate the ''members'' of the files in question. Members are bound to the record structure laid out in the file itself.~~ So ~~deleting and re-adding file members does no harm except getting rid of all the deleted records.~~		So it's not clear why the command experiences gradual slowdown over time.

	~~RMVM FILE(QUSRSYS/QASXPROB2) MBR(QASXPROB2)~~
	~~RMVM FILE(QUSRSYS/QASXPROB) MBR(QASXPROB)~~
	~~ADDPFM FILE(QUSRSYS/QASXPROB) MBR(QASXPROB)~~
	~~ADDLFM FILE(QUSRSYS/QASXPROB2) MBR(QASXPROB2)~~

	~~To prevent this from happening again, allow the OS to reuse allocated space.~~

	~~CHGPF FILE(QUSRSYS/QASXPROB) REUSEDLT(*YES)<ref>Since there~~'s ~~no ''reusedlt'' parameter for ''CHGLF'', I wonder~~ why the ~~index needed so much space.</ref>~~

	~~This approach applies also to any other database file showing significant~~ slowdown over time.

	== Footnotes ==		== Footnotes ==

Porting C-Source to OS/400

PoC — Sun, 17 May 2026 19:05:17 GMT

Weblinks: more precise

← Older revision		Revision as of 21:05, 17 May 2026
(2 intermediate revisions by the same user not shown)
Line 6:		Line 6:
	These are definitions for integers, being used often. This can be put e. g. into a separate header file:		These are definitions for integers, being used often. This can be put e. g. into a separate header file:
	<syntaxhighlight lang="c">		<syntaxhighlight lang="c">
	#ifndef __stdint_h		#ifndef __stdint_h
	typedef unsigned long long int uint64_t;		typedef unsigned long long int uint64_t;
	typedef unsigned int uint32_t;		typedef unsigned int uint32_t;
	typedef unsigned short int uint16_t;		typedef unsigned short int uint16_t;
	typedef unsigned char uint8_t;		typedef unsigned char uint8_t;
	#define __stdint_h 1		typedef long long int int64_t;
	#endif		typedef int int32_t;
			typedef short int int16_t;
			typedef char int8_t;
			#define __stdint_h 1
			#endif
	</syntaxhighlight>		</syntaxhighlight>
	<blockquote>'''Note:''' The IMPI (CISC) C compiler in V3R2 and earlier doesn't know <tt>long long</tt>, it's 32 bits only.</blockquote>		<blockquote>'''Note:''' The IMPI (CISC) C compiler in V3R2 and earlier doesn't know <tt>long long</tt>, it's 32 bits only.</blockquote>
Line 50:		Line 54:
	If all object modules have been created, you can then link them to a ''*PGM'' object as follows:		If all object modules have been created, you can then link them to a ''*PGM'' object as follows:
	CRTPGM PGM(MYLIB/MYPG) MODULE(MYLIB/ALL) ENTMOD(PGM) ACTGRP(NEW) DETAIL(BASIC)		CRTPGM PGM(MYLIB/MYPG) MODULE(MYLIB/ALL) ENTMOD(PGM) ACTGRP(NEW) DETAIL(BASIC)

			== Weblinks ==
			* [https://github.com/greenfive/as400_c/ AS/400 C] programming related files, especially ''stdint.h'', GitHub

	== Footnotes ==		== Footnotes ==

User:PoC

PoC — Sun, 10 May 2026 21:45:11 GMT

Message handling table: More info

@@ Line 95: / Line 95: @@
 * [https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_72/rzajq/specifyqaqqini.htm Change Query Attributes for using the desired QAQQINI file]
 * [https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_72/rzajq/rzajqqaqqiniformat.htm QAQQINI File Format]
 == Footnotes ==
 <references />

Access OS/390 DB2 database tables from OS/400 over SNA/APPN

PoC — Sun, 10 May 2026 18:08:49 GMT

WTO: Dispatch Priorities not in Sync: Syntax

← Older revision		Revision as of 20:08, 10 May 2026
(One intermediate revision by the same user not shown)
Line 35:		Line 35:
	* IRLM : 0020 COMPARED TO DB2 : 0021		* IRLM : 0020 COMPARED TO DB2 : 0021

	The following edits need to be made.		The following edits need to be made:

	* to <tt>sys1.adcd10.parmlib(ieaics00)</tt>, insert the following lines before the ''SUBSYS=CICS'' line:		* to <tt>sys1.adcd10.parmlib(ieaics00)</tt>, insert the following lines before the ''SUBSYS=CICS'' line:
	TRXNAME=DB2,PGN=12 /* DB2 */		TRXNAME=DB2,PGN=12 /* DB2 */
Line 44:		Line 43:
	TRXNAME=DB2IRLM,PGN=13		TRXNAME=DB2IRLM,PGN=13

	* to sys1.adcd10.parmlib(ieaips00) insert the following lines ~~before~~ the ''PGN=3,'' line:		* to sys1.adcd10.parmlib(ieaips00) insert the following lines after the ''PGN=3,'' line:
	PGN=12,(DMN=5,DP=F2) /* DB2 */		PGN=12,(DMN=5,DP=F2) /* DB2 */
	PGN=13,(DMN=5,DP=F4) /* DB2 IRLM */		PGN=13,(DMN=5,DP=F4) /* DB2 IRLM */

Access OS/390 3270 display sessions from OS/400 over SNA/APPN

PoC — Fri, 08 May 2026 18:59:34 GMT

Weblinks: +link

@@ Line 78: / Line 78: @@
 You can enjoy a setup screen akin to ''strpasthr''. Afterwards, the screen shows a logon greeting.
 == Weblinks ==
@@ Line 84: / Line 103: @@
 * [https://www.ibm.com/resources/publications/OutputPubsDetails?PubID=SG24620400 S/390 Partners in Development: OS/390 (and z/OS) New Users Cookbook], SG24-6204-00
 *[https://www.ibm.com/support/pages/dlur-overview-and-configuration DLUR Overview and Configuration], ibm.com
 [[Category: Software Configuration Guide]]‏
 [[Category: System Administration‏‎]]

Access OS/390 DB2 database tables from OS/400 over SNA/APPN

PoC — Fri, 08 May 2026 17:59:28 GMT

Fix for Dispatch Priorities not in Sync, thanks to Tim Lark!

← Older revision		Revision as of 19:59, 8 May 2026
Line 1:		Line 1:
	{{FIXME\|Solve and document outstanding headscratchers}}		{{FIXME\|Solve and document outstanding headscratchers}}
	This is a short writeup of how to '''access OS/390 DB2 database tables from OS/400 over SNA/APPN'''. A mandatory requirement is an already established SNA/APPN configuration.		This is a short writeup of how to '''access OS/390 DB2 database tables from OS/400 over SNA/APPN'''. A mandatory requirement is an already established SNA/APPN configuration.

			__TOC__

	This article assumes OS/390 ADCD 2.10 being used.		This article assumes OS/390 ADCD 2.10 being used.
Line 11:		Line 13:
	DB2 parameters are left at default, because we don't know (yet) how to change them.		DB2 parameters are left at default, because we don't know (yet) how to change them.

	=== ~~APPN startup~~ summary on OS/390 console ===		=== Startup summary on OS/390 console ===
	This is where I gleaned interesting values.		This is where I gleaned interesting APPN values.
	- 17.05.53 STC00017 DSNL004I - DDF START COMPLETE		- 17.05.53 STC00017 DSNL004I - DDF START COMPLETE
	- LOCATION S390LOC		- LOCATION S390LOC
Line 28:		Line 30:
	* P390LU is the network entity (LUname) name we must connect to.		* P390LU is the network entity (LUname) name we must connect to.

	=== ~~FIXME~~: ~~How to handle this WTO?~~ ===		==== WTO: Dispatch Priorities not in Sync ====
			In the default installation of OS/390 2.10 ADCD, you might be presented with this console message:
	17.05.41 STC00017 DSNT405E - DSNTLIDE DISPATCH PRIORITIES NOT IN SYNC:		17.05.41 STC00017 DSNT405E - DSNTLIDE DISPATCH PRIORITIES NOT IN SYNC:
	* IRLM : 0020 COMPARED TO DB2 : 0021		* IRLM : 0020 COMPARED TO DB2 : 0021

	* ~~Information but no solution: [https://www~~.~~ibm~~.~~com~~/~~docs/en/db2-for-zos/11?topic~~=~~messages-dsnt405e DSNT405E csect-name DISPATCH PRIORITIES NOT IN SYNC: ccccccc1~~: ~~hhh1 COMPARED TO ccccccc2: hhh2]~~		The following edits need to be made.
	* ~~"The internal resource lock manager (IRLM) subsystem manages Db2 locks": [https://www.ibm.com/docs/en/db2-for-zos~~/12~~?topic~~=~~connections-controlling-irlm Controlling the IRLM]~~
			* to <tt>sys1.adcd10.parmlib(ieaics00)</tt>, insert the following lines before the ''SUBSYS=CICS'' line:
			TRXNAME=DB2,PGN=12 /* DB2 */
			TRXNAME=DSN1MSTR,PGN=12
			TRXNAME=DSN1DIST,PGN=12
			TRXNAME=DSN1SPAS,PGN=12
			TRXNAME=DB2IRLM,PGN=13

	~~Volker Bandke says~~:		* to sys1.adcd10.parmlib(ieaips00) insert the following lines before the ''PGN=3,'' line:
	~~<blockquote>The IRLM jobstep EXEC statement contains <tt>DPRTY~~=(0,20)</~~tt> but the~~ DB2 ~~EXEC contains <tt>DPRTY~~=(0,21)</~~tt>. Maybe the values were derived from IEAIPSxx.<~~/~~blockquote>~~		PGN=12,(DMN=5,DP=F2) /* DB2 */
			PGN=13,(DMN=5,DP=F4) /* DB2 IRLM */

	~~No attempt in clarifying~~ and ~~verifying these hints has been done so far~~.		Re-IPL, and the message will be gone.

	== Use interactive SQL ==		== Use interactive SQL ==

9401-150 Power Supply Pinout

PoC — Sun, 03 May 2026 10:05:26 GMT

Porting C-Source to OS/400

Greenfive — Tue, 28 Apr 2026 21:55:17 GMT

fixed typo

← Older revision		Revision as of 23:55, 28 April 2026
Line 17:		Line 17:

	== Preparations for QSYS.LIB ==		== Preparations for QSYS.LIB ==
	Preparations are mostly ~~one~~ on UNIX/Linux side. This is required to make the older V4R5 compiler happy. Newer compilers might be more forgiving.		Preparations are mostly done on UNIX/Linux side. This is required to make the older V4R5 compiler happy. Newer compilers might be more forgiving.

	# Convert to native line endings for your platform, if the source files don't match.		# Convert to native line endings for your platform, if the source files don't match.

← Older revision		Revision as of 12:05, 3 May 2026
(2 intermediate revisions by the same user not shown)
Line 125:		Line 125:
	[[File:Bicker-ATX20-AT-mod-1.jpg\|thumb\|right\|The modified Bicker adapter.]]		[[File:Bicker-ATX20-AT-mod-1.jpg\|thumb\|right\|The modified Bicker adapter.]]
	[[File:Bicker-ATX20-AT-mod-2.jpg\|thumb\|right\|The modified Bicker adapter. Note the red wire with the heat shrink tube. This is the glued 5 V standby pin.]]		[[File:Bicker-ATX20-AT-mod-2.jpg\|thumb\|right\|The modified Bicker adapter. Note the red wire with the heat shrink tube. This is the glued 5 V standby pin.]]
			[[File:IBM-9401-150-main-planar-front.jpg\|thumb\|right\|Mainboard of a model 150; see PSU connections at the somewhat cropped top.]]
	[[File:Bicker-ATX20-AT-mod-3.jpg\|thumb\|right\|The modified Bicker attached to a 150. Note that one of the 3.3 V connectors is left unattached, see text.]]		[[File:Bicker-ATX20-AT-mod-3.jpg\|thumb\|right\|The modified Bicker attached to a 150. Note that one of the 3.3 V connectors is left unattached, see text.]]
	[[File:IBM-9401-150-inside.jpg\|thumb\|right\|9401-150 with BeQuiet PSU.]]		[[File:IBM-9401-150-inside.jpg\|thumb\|right\|9401-150 with BeQuiet PSU.]]
Line 202:		Line 203:
	* [[wikipedia:ATX#Power supply\|ATX power connector]], Wikipedia		* [[wikipedia:ATX#Power supply\|ATX power connector]], Wikipedia
	* [https://www.bicker.de/x1-116 ATX20/AT Adapter], German seller Bicker		* [https://www.bicker.de/x1-116 ATX20/AT Adapter], German seller Bicker

			== Weblinks ==
			* [https://www.playtool.com/pages/psuconnectors/connectors.html#oldpc Original PC main power cables], playtool.com
			* [https://www.evercase.co.uk/index.php?route=information/information&information_id=9 PSU Connectors], Evercase
			* [https://en.wikipedia.org/wiki/Pin_header Pin header], Wikipedia

	== Footnotes ==		== Footnotes ==