July's Course of the Month is now available! Enroll to learn HTML5 and prepare for certification. It's free for Premium Members, Team Accounts, and Qualified Experts.
Course Of The Month
Become a Premium Member and unlock a new, free course in leading technologies each month.
IBM System i
3K
Solutions
2K
Contributors
IBM i, formerly known as AS/400, is a proprietary, midrange, object-based operating and application system. It includes a relational database, a menu-driven interface, support for multiple users, block-oriented terminal support and printers, and supports security, communications, and web-based application servers including Websphere, Apache and Tomcat.
Share tech news, updates, or what's on your mind.
I have a CL program that adds a library (WHMSDTA) to the user library list. The command is ADDLIBLE LIB(WHMSDTA)
at the end of the job the library is removed from the user library list.
However if the job ends abnormally, and the user restarts the job, the library WHMSDTA is still on the library list and the user must sign off the log in again in order to rerun the program.
how can I check if the library WHMSDTA already exists on the user library list so that I can condition execution of the ADDLIBLE command?
at the end of the job the library is removed from the user library list.
However if the job ends abnormally, and the user restarts the job, the library WHMSDTA is still on the library list and the user must sign off the log in again in order to rerun the program.
how can I check if the library WHMSDTA already exists on the user library list so that I can condition execution of the ADDLIBLE command?
2 Comments
What do you find is the best solution to mask data for both SQL server and iseries DB2?
Team, I need to convert End of line Hex Character in a IFS file from x0A to x0D0A . Please help me
Thank you In advance.
Thank you In advance.
How can i save restore an stored procedure type external from system V6R1 to another with V7R1 .
this object is looked from iseries navigator >database>schema>procedure
this object is looked from iseries navigator >database>schema>procedure
Have a pc attempting to log on to a AS400 but gets no response after entering userid & password. Makes connection to AS400 and gets log on screen with no problem. I even entered a wrong password to see if I received an error message but I did not. Any suggestions?
Hi Team,
For one of our server the tape drive has been broken , so please confirm if we need to IPL the system after the replacement
Regards
Avinash Chandra
For one of our server the tape drive has been broken , so please confirm if we need to IPL the system after the replacement
Regards
Avinash Chandra
Hi,
I have an application still running old 36 programs. (on the list to converted, but has not made it to the top of the list)
Can anyone tell me how to get the wait record no max to function in a 36 proc on the '// file' statement? (like the *nomax on the ovrdbf)
OVRDBF FILE(CUSTDT) TOFILE(&FILE8) WAITRCD(*NOMAX)
// FILE NAME-CUSTDT,DISP-SHR,LABEL
Thank You,
Lynn
I have an application still running old 36 programs. (on the list to converted, but has not made it to the top of the list)
Can anyone tell me how to get the wait record no max to function in a 36 proc on the '// file' statement? (like the *nomax on the ovrdbf)
OVRDBF FILE(CUSTDT) TOFILE(&FILE8) WAITRCD(*NOMAX)
// FILE NAME-CUSTDT,DISP-SHR,LABEL
Thank You,
Lynn
I am attempting to receive data from a data quue that is attached to an outq.
From there I take some of that information and use QUSLSPL API to get the List of Spool files that meet the criteria of what was found from the RCVDTAQ API.
I then create the pointer using QUSPTRUS API to a user space that I created previous and attempt to run the spool list. when I do this is not working as expected. Basically the follow IF fails on NUMBER-LIST-ENTRIES being equal to 0.
I have referenced this link with a COBOL example.
https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_73/apiref/cmnKeysCOBOL.htmhttps://www.ibm.com/suppor
I can provide more code if necessary.
From there I take some of that information and use QUSLSPL API to get the List of Spool files that meet the criteria of what was found from the RCVDTAQ API.
I then create the pointer using QUSPTRUS API to a user space that I created previous and attempt to run the spool list. when I do this is not working as expected. Basically the follow IF fails on NUMBER-LIST-ENTRIES being equal to 0.
IF (INFORMATION-STATUS OF QUS-GENERIC-HEADER-0100 = "C" (14)
OR INFORMATION-STATUS OF QUS-GENERIC-HEADER-0100 = "P")
AND NUMBER-LIST-ENTRIES OF QUS-GENERIC-HEADER-0100 > 0 (16)
*
* address current list entry
*
SET ADDRESS OF STRING-SPACE TO SPCPTR,
SET ADDRESS OF QUS-SPLF0200 TO
ADDRESS OF STRING-SPACE((OFFSET-LIST-DATA
OF QUS-GENERIC-HEADER-0100 + 1):1), (18)
*
* and process all of the entries
*
PERFORM PROCES
NUMBER-LIST-ENTRIES OF QUS-GENERIC-HEADER-0100 TIMES, (20)
ELSE
DISPLAY "List data not valid. **** THIS IS WHAT EXECUTES!!!!"
I have referenced this link with a COBOL example.
https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_73/apiref/cmnKeysCOBOL.htmhttps://www.ibm.com/suppor
I can provide more code if necessary.
Workstation program version 6.0 for windows
Iseries access for windows
User profiles are getting disabled for no aparenr reason. for example, user is enterning correct password while logging on however the user gets i ' =@@@ and his user account got diabled on iseries app. I tried to replciate the issue, by hitting connect/disconnect button - my profile got disabled. any advise should be helpful for me.
day 5 at the job :)
Iseries access for windows
User profiles are getting disabled for no aparenr reason. for example, user is enterning correct password while logging on however the user gets i ' =@@@ and his user account got diabled on iseries app. I tried to replciate the issue, by hitting connect/disconnect button - my profile got disabled. any advise should be helpful for me.
day 5 at the job :)
I have a SQL Server 2012 DTS package that receives data from AS400. Before these three days, everything was going well.
But suddenly when I tried to run these error messages appeared:
1. SSIS Error Code DTS_E_PRIMEOUTPUTFAILED. The PrimeOutput method on AS400 returned error code 0xC02090F5. The component returned a failure code when the pipeline engine called PrimeOutput(). The meaning of the failure code is defined by the component, but the error is fatal and the pipeline stopped executing. There may be error messages posted before this with more information about the failure.
2. The AS400 was unable to process the data. CWBCO1054 - A user-specified time-out occurred while sending or receiving data.
Sometimes when I run it manually, it ran perfectly, but sometimes the error messages appeared. I need to run it several times till the error didn't show up. Different when I ran through batch file (task scheduler/sql job agent), I always got fail.
I already checked the connection by test the credentials, ping and telnet to the server. It's okay.
Any idea why this error is coming up? I appreciate any assistance from everyone :)
Thanks a lot
But suddenly when I tried to run these error messages appeared:
1. SSIS Error Code DTS_E_PRIMEOUTPUTFAILED. The PrimeOutput method on AS400 returned error code 0xC02090F5. The component returned a failure code when the pipeline engine called PrimeOutput(). The meaning of the failure code is defined by the component, but the error is fatal and the pipeline stopped executing. There may be error messages posted before this with more information about the failure.
2. The AS400 was unable to process the data. CWBCO1054 - A user-specified time-out occurred while sending or receiving data.
Sometimes when I run it manually, it ran perfectly, but sometimes the error messages appeared. I need to run it several times till the error didn't show up. Different when I ran through batch file (task scheduler/sql job agent), I always got fail.
I already checked the connection by test the credentials, ping and telnet to the server. It's okay.
Any idea why this error is coming up? I appreciate any assistance from everyone :)
Thanks a lot
Free Tool: ZipGrep
ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.
One of a set of tools we're offering as a way to say thank you for being a part of the community.
**************************
* *
* Licensed Materials - Property of IBM *
* *
* IBM(R) Sterling Connect:Direct(R) for UNIX 4.1.0.3 *
* Build date: 20Jun2012 *
* *
* (C) Copyright IBM Corp. 1992, 2011 All Rights Reserved. *
* *
**************************
Direct>
XPAE003I Return Code: 8 Feedback: 0
:&KEYWD==:
XPAM001I Return Code: 8 Feedback: 0
Errors Parsing
Direct> Enter a ';' at the end of a command to submit it. Type 'quit;' to exit CLI.
submit CAPM2AMS process SNODE=PQS1S
step01 copy from (
file=/tmp/2017173.j4.01701
pnode
)
to (
file=TEST.2017173.j4.01701
disp=new
snode
)
step02 if (step01 == 0) then
run task snode
sysopts="TEST.PQS 2017173.j4.01701.cctpepay "
run task (PGM=UNIX)
sysopts="rm /tmp/2017173.j4.01701.cctp
else
step03 run task …
* *
* Licensed Materials - Property of IBM *
* *
* IBM(R) Sterling Connect:Direct(R) for UNIX 4.1.0.3 *
* Build date: 20Jun2012 *
* *
* (C) Copyright IBM Corp. 1992, 2011 All Rights Reserved. *
* *
**************************
Direct>
XPAE003I Return Code: 8 Feedback: 0
:&KEYWD==:
XPAM001I Return Code: 8 Feedback: 0
Errors Parsing
Direct> Enter a ';' at the end of a command to submit it. Type 'quit;' to exit CLI.
submit CAPM2AMS process SNODE=PQS1S
step01 copy from (
file=/tmp/2017173.j4.01701
pnode
)
to (
file=TEST.2017173.j4.01701
disp=new
snode
)
step02 if (step01 == 0) then
run task snode
sysopts="TEST.PQS 2017173.j4.01701.cctpepay "
run task (PGM=UNIX)
sysopts="rm /tmp/2017173.j4.01701.cctp
else
step03 run task …
I am looking for script help with copping cell data from excel and pasting to AS400.
Example: copy data from Excel cell D3 paste in AS400 09,040 enter, copy from Excel cell E3 paste in AS400 13,030 enter. I need this to repeat or loop until all the data from Excel column D and E have been entered in AS400.
Example: copy data from Excel cell D3 paste in AS400 09,040 enter, copy from Excel cell E3 paste in AS400 13,030 enter. I need this to repeat or loop until all the data from Excel column D and E have been entered in AS400.
I am trying to execute below command through RUNSQL in CLLE but its failing everytime with error "Column list required."
Have given name for all the output fields with AS clause but still throwing same error.
Can someone please help ?
********Query **********
RUNSQL SQL('CREATE TABLE QGPL/P25FILE9 AS +
(SELECT A.BRANCH as BRANCH, +
(SELECT LONGDESC FROM DESCPF B +
WHERE B.DESCITEM = A.BRANCH +
AND B.DESCTABL=''T3589'') +
as BRANCH_NAME, A.FREQUENCY as FRQ,(SELECT LONGDESC +
FROM DESCPF C WHERE C.DESCITEM = A.FREQUENCY AND +
C.DESCTABL =''T3590'') as BILL_FREQUENCY, +
A.MODE_00001 as COLLCTMTD, +
(SELECT LONGDESC FROM DESCPF D +
WHERE D.DESCITEM = A.MODE_00001 AND D.DESCTABL +
=''T3620'') as COLLECTION_METHOD, +
A.PRODU00001 as ProdType, +
(SELECT LONGDESC FROM DESCPF E WHERE E.DESCITEM = +
A.PRODU00001 AND E.DESCTABL=''T5673'') as +
PRODUCT_NAME, A.SOB as SOB, +
(SELECT LONGDESC FROM DESCPF F +
WHERE …
Have given name for all the output fields with AS clause but still throwing same error.
Can someone please help ?
********Query **********
RUNSQL SQL('CREATE TABLE QGPL/P25FILE9 AS +
(SELECT A.BRANCH as BRANCH, +
(SELECT LONGDESC FROM DESCPF B +
WHERE B.DESCITEM = A.BRANCH +
AND B.DESCTABL=''T3589'') +
as BRANCH_NAME, A.FREQUENCY as FRQ,(SELECT LONGDESC +
FROM DESCPF C WHERE C.DESCITEM = A.FREQUENCY AND +
C.DESCTABL =''T3590'') as BILL_FREQUENCY, +
A.MODE_00001 as COLLCTMTD, +
(SELECT LONGDESC FROM DESCPF D +
WHERE D.DESCITEM = A.MODE_00001 AND D.DESCTABL +
=''T3620'') as COLLECTION_METHOD, +
A.PRODU00001 as ProdType, +
(SELECT LONGDESC FROM DESCPF E WHERE E.DESCITEM = +
A.PRODU00001 AND E.DESCTABL=''T5673'') as +
PRODUCT_NAME, A.SOB as SOB, +
(SELECT LONGDESC FROM DESCPF F +
WHERE …
Can someone help with below requirement.....
I have a physical file with one of the field with variable length and it has contents as given below. My requirement is to substring the the IFS links just before the *OMIT for all occurrence .
For example, the i should get /QSYS.LIB , /QDLS, /TMP/BRMS , /QIBM/ProdData ....from first record.
From second record, nothing, as the *OMIT is not present
From third record, i should get /QIBM/UserData/OS400/TCPIP
From fourth record, i should get /QSYS.LIB, /QDLS
Once i get these substrings, i will right it them to another file in one column field.
Sample records in the file are ....
OBJ(('/*' *INCLUDE) ('/QSYS.LIB' *OMIT) ('/QDLS' *OMIT) ('/TMP/BRMS' *OMIT) ('/QIBM/ProdData' *OMIT))
OBJ(('/home/cdimage'))
OBJ(('/QIBM/UserData/OS400
OBJ(('/*' *INCLUDE) ('/QSYS.LIB' *OMIT) ('/QDLS' *OMIT))
OBJ(('/fixes'))
Thanks in advance !!
I have a physical file with one of the field with variable length and it has contents as given below. My requirement is to substring the the IFS links just before the *OMIT for all occurrence .
For example, the i should get /QSYS.LIB , /QDLS, /TMP/BRMS , /QIBM/ProdData ....from first record.
From second record, nothing, as the *OMIT is not present
From third record, i should get /QIBM/UserData/OS400/TCPIP
From fourth record, i should get /QSYS.LIB, /QDLS
Once i get these substrings, i will right it them to another file in one column field.
Sample records in the file are ....
OBJ(('/*' *INCLUDE) ('/QSYS.LIB' *OMIT) ('/QDLS' *OMIT) ('/TMP/BRMS' *OMIT) ('/QIBM/ProdData' *OMIT))
OBJ(('/home/cdimage'))
OBJ(('/QIBM/UserData/OS400
OBJ(('/*' *INCLUDE) ('/QSYS.LIB' *OMIT) ('/QDLS' *OMIT))
OBJ(('/fixes'))
Thanks in advance !!
Is it possible to generate AS400 spool file with 2 different overlay objects. 2nd Overlay is applicable only to last page of the spool file?
I have an IBM iSeries AS400 V5R4 that NFS was setup on and can see the folders/files on the Windows 2012 STD server, I'm able to transfer a PDF to the Windows location \\aacfile01\as400\actpdf and I see the file but when I go to open the file it give me an Access Denied. It gives me the 
, as you can see it adds Domain Users twice and one of them shows up as Deny. Until I manually go in and change the Deny to Allow is when I am able to open the file. Hopefully this makes sense. Any help would be appreciated......
, as you can see it adds Domain Users twice and one of them shows up as Deny. Until I manually go in and change the Deny to Allow is when I am able to open the file. Hopefully this makes sense. Any help would be appreciated......
Hello. I am trying to setup a 5250 Printer Session from a remotely located IBM ISeries (V7R1M0) to my local machine using an HP LaserJet M605 printer. I have setup many 5250 Printer Sessions before using other printers (HP LaserJets, Lexmark) but for some reason after I set this one up to print to the M605 printer, nothing prints. The ISeries seems to be sending the print file normally but the M605 does not print anything. I am assuming that there is some "trick" to getting this to work but I don't know what it is. I have tried the Manufacturer and Model Type paramter to other types of printers without success. Any help would be appreciated. Thank You!
Here is the DEVD for the printer:
Device description . . . . . . . . : XXX
Option . . . . . . . . . . . . . . : *BASIC
Category of device . . . . . . . . : *PRT
Device class . . . . . . . . . . . : *VRT
Device type . . . . . . . . . . . : 3812
Device model . . . . . . . . . . . : 1
Advanced function printing . . . . : *NO
Online at IPL . . . . . . . . . . : *NO
Attached controller . . . . . . . : QVIRCD0001
Font:
Identifier . . . . . . . . . . . : 011
Point size . . . . . . . . . . . : *NONE
Separator drawer . . . . . . . . . : *FILE
Separator program . . . . . . . . : *NONE
Printer error message . . . . . . :…
Here is the DEVD for the printer:
Device description . . . . . . . . : XXX
Option . . . . . . . . . . . . . . : *BASIC
Category of device . . . . . . . . : *PRT
Device class . . . . . . . . . . . : *VRT
Device type . . . . . . . . . . . : 3812
Device model . . . . . . . . . . . : 1
Advanced function printing . . . . : *NO
Online at IPL . . . . . . . . . . : *NO
Attached controller . . . . . . . : QVIRCD0001
Font:
Identifier . . . . . . . . . . . : 011
Point size . . . . . . . . . . . : *NONE
Separator drawer . . . . . . . . . : *FILE
Separator program . . . . . . . . : *NONE
Printer error message . . . . . . :…
I'm looking for zipping tools that could create zips with password
for OS/400 R7 platform so that sensitive data in files are encrypted
& when we sftp over to Windows/Unix, the encrypted zipfiles are
sent over : for PCI-DSS compliance, we want data at rest to be
encrypted both at AS400 & the Windows/Unix ends.
Ideally the zipping tool can be called by RPG & Cobol
In Unix, we can 'pipe' data stream directly into a zip; would be good
to have this feature for the AS400 tool.
Also, we have tons of logs (eg: audit trails) taking up valuable space
in AS400 so this zipping can hopefully reduce the size of these
for OS/400 R7 platform so that sensitive data in files are encrypted
& when we sftp over to Windows/Unix, the encrypted zipfiles are
sent over : for PCI-DSS compliance, we want data at rest to be
encrypted both at AS400 & the Windows/Unix ends.
Ideally the zipping tool can be called by RPG & Cobol
In Unix, we can 'pipe' data stream directly into a zip; would be good
to have this feature for the AS400 tool.
Also, we have tons of logs (eg: audit trails) taking up valuable space
in AS400 so this zipping can hopefully reduce the size of these
I'm totally confused, nowhere I'm getting proper information about how to start programming in AS/400.
What are the software & hardware requirements of AS/400? What should I know about AS/400 to become a programmer in that?
How can I do JAVA, C, C++, C#, .net programs using AS/400, or is there any other way?
I will be pleased, if anyone could provide a detailed information.
What are the software & hardware requirements of AS/400? What should I know about AS/400 to become a programmer in that?
How can I do JAVA, C, C++, C#, .net programs using AS/400, or is there any other way?
I will be pleased, if anyone could provide a detailed information.
[eBook] Windows Nano Server
![[eBook] Windows Nano Server](https://filedb.experts-exchange.com/files/public/2017/6/24/1329f749-2f43-4bd1-8413-3b5b5ab33fc6.png)
Download this FREE eBook and learn all you need to get started with Windows Nano Server, including deployment options, remote management
and troubleshooting tips and tricks
I have tried to stop it, recreate it, but it will not let me end journal or change journal. I keep reading but cannot find anything. Any idea's out there?
i wish to know how to check a list of programs linked to file.
if i use hawkeye then need to put library otherwise in (*all) it runs in batch ( dumps out )which is quite longer time .pls tell me.
if i use hawkeye then need to put library otherwise in (*all) it runs in batch ( dumps out )which is quite longer time .pls tell me.
Hi ,
I have some question regarding ICF file and its uses in AS400 RPGLE . It would be great help if someone explain me as I am beginner in this area.
1) How can I write source code of ICF File ( Please share file structure, if possible).
2) Is there any way to check , insert or delete data in ICF file as SQL and runqry does not work on ICF File.
3) How can I unit test my program or how to prepare dummy data in ICF file.
It would be great help.
Thanks
I have some question regarding ICF file and its uses in AS400 RPGLE . It would be great help if someone explain me as I am beginner in this area.
1) How can I write source code of ICF File ( Please share file structure, if possible).
2) Is there any way to check , insert or delete data in ICF file as SQL and runqry does not work on ICF File.
3) How can I unit test my program or how to prepare dummy data in ICF file.
It would be great help.
Thanks
i'm trying to run net use from as400 through clp or command line to map drive on user pc but not working, anybody can advise.
here some example i tried not working but from command dos no problem
STRPCCMD PCCMD('start net use V: //AS400system/sharename +
/USER:xxxxxx xxxxxxxxxx /PERSISTENT:no')
STRPCCMD PCCMD('net use' V: //AS400system/sharename +
/USER:xxxxxx xxxxxxxxxx /PERSISTENT:no')
STRPCCMD PCCMD('net use' V: //AS400system/sharename')
here some example i tried not working but from command dos no problem
STRPCCMD PCCMD('start net use V: //AS400system/sharename +
/USER:xxxxxx xxxxxxxxxx /PERSISTENT:no')
STRPCCMD PCCMD('net use' V: //AS400system/sharename +
/USER:xxxxxx xxxxxxxxxx /PERSISTENT:no')
STRPCCMD PCCMD('net use' V: //AS400system/sharename')
There's concerns that trojanized USB sticks are shipped with the following 2 servers below.
What are the best practices if the USB ports can't be disabled? Physically block the ports,
use specific encrypted USB thumbdrives that doesn't require drivers (saw one such EE link)
or ?? Kindly provide risk assessments & any other mitigations.
Below is the response from the vendor:
For HMC Servers :
For HMC server (7042-CR6), it's likely that the HMC server's BIOS does not have the option to disable the USB ports.
For P750 Servers :
With reference to the P750 model server (8408-E8D), there are a total of 4 x USB ports, which are integrated with the different hardware components (cards & control panel) of the server. Below are the details:
1. Control Panel
-- 1 x USB port integrated. No option to disable as it's build in together with the control panel.
2. Service Processor Card
-- 1 x USB port integrated. This USB port is used for server firmware upgrade purpose for server that are not managed by any HMC. Thus it's build in together with service processor and no option to disable.
3. Integrated Multifunction Card (an integrated card that is install in the System CEC that provides two USB ports, one serial port, and four ethernet connectors)
-- 2 x USB ports integrated. This card is not assigned to any of the partition's profile, thus it's not recognized as part of the partition's hardware config. As such, it is not …
What are the best practices if the USB ports can't be disabled? Physically block the ports,
use specific encrypted USB thumbdrives that doesn't require drivers (saw one such EE link)
or ?? Kindly provide risk assessments & any other mitigations.
Below is the response from the vendor:
For HMC Servers :
For HMC server (7042-CR6), it's likely that the HMC server's BIOS does not have the option to disable the USB ports.
For P750 Servers :
With reference to the P750 model server (8408-E8D), there are a total of 4 x USB ports, which are integrated with the different hardware components (cards & control panel) of the server. Below are the details:
1. Control Panel
-- 1 x USB port integrated. No option to disable as it's build in together with the control panel.
2. Service Processor Card
-- 1 x USB port integrated. This USB port is used for server firmware upgrade purpose for server that are not managed by any HMC. Thus it's build in together with service processor and no option to disable.
3. Integrated Multifunction Card (an integrated card that is install in the System CEC that provides two USB ports, one serial port, and four ethernet connectors)
-- 2 x USB ports integrated. This card is not assigned to any of the partition's profile, thus it's not recognized as part of the partition's hardware config. As such, it is not …
How do I change the default view from the WRKOUTQ command to get the view 2 details displayed straightaway, instead of having to press F11?
We just did an upgrade and for the life of me I can't remember where/how to change this. (release V7R3)
Thank you in advance!
Lynn
We just did an upgrade and for the life of me I can't remember where/how to change this. (release V7R3)
Thank you in advance!
Lynn
IBM System i
3K
Solutions
2K
Contributors
IBM i, formerly known as AS/400, is a proprietary, midrange, object-based operating and application system. It includes a relational database, a menu-driven interface, support for multiple users, block-oriented terminal support and printers, and supports security, communications, and web-based application servers including Websphere, Apache and Tomcat.
Top Experts In
IBM System i
