CPF4131 is a record format level check error. This indicates that the format level ID in the file at the time of program compilation is not found when the program opens the file. This means that the file structure has been changed after the program compilation. You must recompile your program to resRead more
CPF4131 is a record format level check error. This indicates that the format level ID in the file at the time of program compilation is not found when the program opens the file. This means that the file structure has been changed after the program compilation. You must recompile your program to resolve the CPF4131, i.e. level check error.
CPF4131 usually occurs when the program tries to access files whose record format differs from the record format level used during program compilation. The solution to level check error, i.e. CPF4131, could be to set the LVLCHK option (*NO) during file compilation. This will ensure that the record format will not be checked during file opening, but this is not a suggested approach to follow.
CPF4131 level check error can be resolved by recompiling the programs. Steps to follow to fix the CPF4131 error:
Run the DSPPGMREF command from the command line for the program experiencing a level check problem.
Verify the record format ID of the files in the program.
Compare the actual record format ID of the file by doing DSPFD on the file and the one stored in the DSPPGMREF output. If they are not equal, then recompile the program.
In AS400, "AS" stands for Application system. This article discusses what AS400 is, its history, the operating system it uses, its features, use, and other essential things. Introduction Let me first talk about what the AS400 system is. It is a midrange server introduced by IBM in 1988 in Rochester,Read more
In AS400, “AS” stands for Application system. This article discusses what AS400 is, its history, the operating system it uses, its features, use, and other essential things.
Introduction
Let me first talk about what the AS400 system is. It is a midrange server introduced by IBM in 1988 in Rochester, Minnesota. It is a compact mainframe system that replaces System/36 and System/38.
History
Let’s look at the history of AS400. The AS400 system was renamed several times, from eServer iSeries in 2000 to System i in 2006. Later, in 2008, System I merged with System P and became Power System.
For more information, please read IBM’s history of AS400 in detail.
Operating System
OS400 is the operating system used. OS400 is now known as the IBM i power system. The current version of the operating system is IBM i 7.4 which supports logical partitioning (LPAR) where multiple OS can run simultaneously on the same IBM i machine.
Features
The AS400 is an object-oriented system where everything is an object. It uses files to store data. It interfaces with hardware via a technology-independent machine interface (TIMI) rather than directly and is not dependent on any specific technology. Customers can switch their applications to new hardware technology at any time.
AS400 has software for communications, backup, and recovery. It has an inbuilt DB2 database. It’s a safe, multiuser and multitasking system. Additionally, it supports file systems, web application servers, and web service servers, among other tools. The system consists of Independently installed software components called licensed programs. The changes made to the parts require a PTF. Hence, we can install PTFs permanently or temporarily.
Use
AS400 is used in businesses that value safety, stability, and dependability. Several corporate applications use AS400, such as Manufacturing, Finance, Transportation and logistics, Banks, ERP, etc.
Cloud
AS400 cloud services are now provided by Amazon web services, Google Cloud platform, Microsoft Azure, etc.
Technical introduction
It contains a sizeable library-based operating system. It supports programming languages such as RPG, COBOL, Assembly, C, C++, Java, PHP, Python, REXX, CL, and SQL.
Several CASE tools are available on AS400 systems, such as Accelerator, Synon, LANSA, IBM Rational Business Developer Extension, etc.
AS400 developers generally use programming languages such as RPG, CL, SQL DB2, Java, XML, etc.
It uses an integrated language environment (ILE) programming environment, which allows us to create single programs from modules in different programming languages such as C, C++, RPG, CL, COBOL, etc. It fully supports the Java language. Several IBM i terminal emulators are available for accessing AS400, such as IBM i ACS, Mocha TN5250, and 5250 emulators. It supports both JDBC and ODBC connectivity. It offers a command and menu-driven interface. This system works in a single operating environment known as a subsystem.
Careers
AS400 is still in high demand in 2024. Many companies globally use AS400 systems. Freshers can opt for several roles in this technology, as indicated below.
IBM i developer
IBM i system administrator
Database administrator
Business analyst
Support Specialist
IBM i tester
IBM i technical analyst
IBM i consultant and others
Integrations
IBMi can share data and communicate with other systems. Moreover, it integrates with file servers, web apps, etc. It can integrate with SAP and JD Edwards. WordPress is hosted on IBM i servers and powers websites and online commerce. Tableau and Power BI tools connect to Salesforce and IBM i databases. IBM i is compatible with iOS and Android mobile OS. Social media networks such as Facebook, LinkedIn, and X (formerly Twitter) integrate with it. E-commerce sites such as Shopify, Amazon, and others are compatible with it. IBM I can integrate with banks and payment gateway for secure transactions. IBM i can integrate with their party software/services using APIs and Web services. The operating system supports Oracle, SQL Server, MySQL, DB2, etc.
Where can I learn more about IBM i?
You can refer to the following material to learn about IBM i technology.
Read official documentation and resources from IBM.
The library cannot contain any other *LIB type object, while QSYS can contain *LIB objects.
Moreover, the IBM-supplied library starts with Q or #.
Different types of objects can exist in the library.
An object name can have a maximum of 10 characters.
An object is unique by its name and type in a library.
This system uses EBCDIC encoding.
This system also supports IFS.
Conclusion
AS400 is a midrange server now known as a power system. IBM i 7.5 is the current version of the operating system, and it is object-oriented. It is a very stable system, and some firms have adopted the As400 cloud services. IBM i can integrate with other external systems.
AS400 is still in high demand in 2024. Many companies globally use AS400 systems. Freshers can opt for several roles in this technology, as indicated below.
IBM i developer
IBM i system administrator
Database administrator
Business analyst
Support Specialist
IBM i tester
IBM i technical analyst
IBM i consultant and others
Integrations
IBMi can share data and communicate with other systems. Moreover, it integrates with file servers, web apps, etc. It can integrate with SAP and JD Edwards. WordPress is hosted on IBM i servers and powers websites and online commerce. Tableau and Power BI tools connect to Salesforce and IBM i databases. IBM i is compatible with iOS and Android mobile OS. Social media networks such as Facebook, LinkedIn, and X (formerly Twitter) integrate with it. E-commerce sites such as Shopify, Amazon, and others are compatible with it. IBM I can integrate with banks and payment gateway for secure transactions. IBM i can integrate with their party software/services using APIs and Web services. The operating system supports Oracle, SQL Server, MySQL, DB2, etc.
Where can I learn more about IBM i?
You can refer to the following material to learn about IBM i technology.
Read official documentation and resources from IBM.
The library cannot contain any other *LIB type object, while QSYS can contain *LIB objects.
Moreover, the IBM-supplied library starts with Q or #.
Different types of objects can exist in the library.
An object name can have a maximum of 10 characters.
An object is unique by its name and type in a library.
This system uses EBCDIC encoding.
This system also supports IFS.
Conclusion
AS400 is a midrange server now known as a power system. IBM i 7.5 is the current version of the operating system, and it is object-oriented. It is a very stable system, and some firms have adopted the As400 cloud services. IBM i can integrate with other external systems.
PUB400 is an accessible online IBM i server where anyone can create a user profile and get access to the server. Additionally, they will get 500 MB of disk storage and two private libraries for their practice. PUB400 is hosting IBM i 7.5. This was started in the year 2000, and according to the PUB40Read more
PUB400 is an accessible online IBM i server where anyone can create a user profile and get access to the server. Additionally, they will get 500 MB of disk storage and two private libraries for their practice. PUB400 is hosting IBM i 7.5. This was started in the year 2000, and according to the PUB400 website reports, this server has more than 40K active user profiles globally.
PUB400 sign up – as400 server sign up
To start practicing on the PUB400 server, you must first register at pub400.com. Click here to join pub400 at any time. To register on PUB400, you must provide your first and last name, email address, and IBM I user name, agree to their terms and conditions, and submit the registration form. This will trigger an email with the instructions to do next.
Pub400 IP address
Pub400 IP address is 185.113.5.134.
Pub400 connection – as400 server connection
Install and open Access Client Solutions (ACS) software on your Windows machine. After that, start ACS and enter pub400.com as the Destination Address. You are prompted to enter your username and password that you get from PUB400.
Pub400 User forum
After creating your user profile on PUB40, you can now ask questions and share your knowledge on a community forum run by PUB400. To access the pub400 community forum, you must validate your user ID and password. Here, you will find information regarding PUB400.com announcements.
PUB400 not working
If you face connectivity issues with pub400, visit the FAQ page on PUB400.com.
Free tools on as400 server
On the PUB400 IBM i server, you will see that several free tools are installed on the server, such as iQuery, IBM i Report Server by KDP, FFD, and AL400S. Click here for additional details.
Menus provides access to various AS400 commands and the system functionalities. The menu name appears on the top left corner of a menu and can be seen by invoking that menu. Also, each menu provides a command line from where we can select any options provided on the menu. Type GO <menu-name> oRead more
Menus provides access to various AS400 commands and the system functionalities. The menu name appears on the top left corner of a menu and can be seen by invoking that menu. Also, each menu provides a command line from where we can select any options provided on the menu. Type GO <menu-name> on the command line and press enter to access any specific menu.
Display All as400 menu
Use the GO *ALL command to display a list of all available menus in the AS400 system.
Go To A Menu
Type options, press Enter.
1=Select menu
Opt Menu Library Text
AFPU QSYS IBM AFP Utilities
ASSIST QSYS AS/400 Operational Assistant menu
BACKUP QSYS Backup menu
CFG QSYS Configuration
CFGCMN QSYS Configure Communications and Remote Hardware
CFGDEVCMN QSYS Configure Devices and Communications
CFGIPS QSYS Configure IP over SNA
CFGLCL QSYS Configure Local Hardware
CFGLST QSYS Configure Address and Location Lists
CFGNWS QSYS Configure Network Servers
CFGPCS QSYS Configure PC Connections
CFGSM QSYS Configure IBM System Manager for i5/OS
More...
main menu
After logging in to the IBM i machine, the MAIN menu appears on the first screen. We can also type GO MAIN on the command line to enter the MAIN menu.
MAIN IBM i Main Menu
Select one of the following:
1. User tasks
2. Office tasks
3. General system tasks
4. Files, libraries, and folders
5. Programming
6. Communications
7. Define or change the system
8. Problem handling
9. Display a menu
10. Information Assistant options
11. IBM i Access tasks
90. Sign off
Selection or command
Option ranges 1 through 11 are available on the MIAN menu, including option 90, which allows you to sign off from IBM i. There is a menu option from 1 to 11, and finally 90 for SIGN OFF. You can select any available option.
user menu
Take option 1 on the MAIN menu screen to access the USER menu.
USER User Tasks
Select one of the following:
1. Display or change your job
2. Display messages
3. Send a message
4. Submit a job
5. Work with your spooled output files
6. Work with your batch jobs
7. Display or change your library list
8. Change your password
9. Change your user profile
60. More user task options
90. Sign off
Office Task menu
Take option 2 on the MAIN menu screen to access the office task (OFCTSK) menu.
OFCTSK Office Tasks
Select one of the following:
2. IBM i Access tasks
3. Decision support
4. Office security
5. Work with directory entries
6. Documents
7. Folders
System menu
Take option 3 on the MAIN menu screen to access the system menu.
SYSTEM General System Tasks
Select one of the following:
1. Jobs
2. Status
3. Display system operator messages
4. Messages
5. Files, libraries, and folders
6. Save
7. Restore
8. Device operations
9. Communications
10. Security
60. More system task options
Some other helpful AS400 menus are available for use.
major menu
Type GO MAJOR on the command line to enter into this menu.
MAJOR Major Command Groups
System: PUB400
Select one of the following:
1. Select Command by Name SLTCMD
2. Verb Commands VERB
3. Subject Commands SUBJECT
4. Object Management Commands CMDOBJMGT
5. File Commands CMDFILE
6. Save and Restore Commands CMDSAVRST
7. Work Management Commands CMDWRKMGT
8. Data Management Commands CMDDTAMGT
9. Security Commands CMDSEC
10. Print Commands CMDPRT
11. Spooling Commands CMDSPL
12. System Control Commands CMDSYSCTL
13. Program Commands CMDPGM
More...
verb menu
Type GO VERB on the command line and press Enter to enter into this menu.
STRSDA utility invokes SDA(screen design aid) and creates a menu. Type STRSDA on the command line and press Enter. On the next screen, take option 2 (design menu) to create a menu. You can do this for practicing purposes on the accessible online public as400 server; for more details about the Menu, visit here.
Screen Design Aid (SDA)
Select one of the following:
1. Design screens
2. Design menus
3. Test display files
You must specify the menu name, source file, and library on the Design menu screen. It checks for the menu’s existence; if no menu exists with specified details, a menu gets created.
Design Menus
Type choices, press Enter.
Source file . . . . . . . . Name, F4 for list
Library . . . . . . . . . Name, *LIBL, *CURLIB
Menu . . . . . . . . . . . Name, F4 for list
Enter on the Specify Menu Functions display.
Specify Menu Functions
File . . . . . . : QDDSSRC Menu . . . . . . . : MENU1
Library . . . . : USER9999
Type choices, press Enter.
Work with menu image and commands . . . . . . Y Y=Yes, N=No
Work with menu help . . . . . . . . . . . . . N Y=Yes, N=No
Press Enter on the Specify menu functions screen, which will display the below screen with 10 options where you provide commands to every option.
MENU1 MENU1 Menu
Select one of the following:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Selection or command
F3=Exit F10=Work with commands F12=Cancel
F13=Command area F20=Reverse F24=More keys
Press Help for a list of valid operations.
Add some menu options.
MENU1 MENU1 Menu
Select one of the following:
1. Create Physical File
2. Create Logical File
3. Create DSPF
4. Create PRTF
5. Create Program
6. Create Service Program
7. Sign Off
8.
9.
10.
Selection or command
F3=Exit F10=Work with commands F12=Cancel
F13=Command area F20=Reverse F24=More keys
Press Help for a list of valid operations.
SDA inserts the code in the backend DSPF source member from the inputs provided on the menu screen. The display attribute for each text string is contained in a hidden character that appears before each text block. SDA will display white or high-intensity text if you type an “H” directly before a text block and in reverse image when “R” and “D” will make the text disappear.
Define the commands for every selection after that. To input the commands, press F10 which is displayed below screen:
Define Menu Commands
Menu . . . . . . : MENU1 Position to menu option . . . . .
Type commands, press Enter.
Option Command
01
02
03
04
05
06
07
More...
F3=Exit F11=Defined only options F12=Cancel F24=More keys
This is where you input the commands linked to every choice. Thus, type the commands as follows:
Define Menu Commands
Menu . . . . . . : MENU1 Position to menu option . . . . .
Type commands, press Enter.
Option Command
01 CRTPF
02 CRTLF
03 CRTDSPF
04 CRTPRTF
05 CRTPGM
06 CRTSRVPGM
07 SIGNOFF
More...
F3=Exit F11=Defined only options F12=Cancel F24=More keys
To escape, press F3 a few times. Check the name of the “object library” after you quit SDA. Your compiled menu objects will be placed here.
Exit SDA Menus
File . . . . . . : QDDSSRC DDS member . . . . . : MENU1
Library . . . . : USER9999 Commands member . . . : MENU1QQ
Type choices, press Enter.
Save new or updated menu source . . . . Y Y=Yes, N=No
For choice Y=Yes:
Source file . . . . . . . . . . . . QDDSSRC Name,
F4 for list
Library . . . . . . . . . . . . . USER9999 Name, *LIBL, *CURLIB
Text . . . . . . . . . . . . . . . .
Replace menu members . . . . . . . . Y Y=Yes, N=No
Create menu objects . . . . . . . . . . Y Y=Yes, N=No
For choice Y=Yes:
Prompt for parameters . . . . . . . N Y=Yes, N=No
Object library . . . . . . . . . . . USER9999 Name, *CURLIB
Replace menu objects . . . . . . . . Y Y=Yes, N=No
Once you press Enter, the menu source gets compiled, and SDA will create three objects of the same name as the menu name but of type *MSGF, *FILE attribute DSPF, and *MENU attribute DSPF.
Work with Objects
Type options, press Enter.
2=Edit authority 3=Copy 4=Delete 5=Display
8=Display description 13=Change description
Opt Object Type Library Attribute Text
MENU1 *MSGF USER9999
MENU1 *FILE USER9999 DSPF
MENU1 *MENU USER9999 DSPF
as400 call menu
After the menu gets created, you can call that menu by typing GO <menu-name> on the command line and pressing Enter.
MENU1 MENU1 Menu
Select one of the following:
1. Create Physical File
2. Create Logical File
3. Create DSPF
4. Create PRTF
5. Create Prorgam
6. Create Service Program
7. Sign Off
8.
9.
10.
Selection or command
===>
A subsystem is an operating environment in as400 systems that manages resource allocation, usage, and job handling. Multiple subsystems that function independently of one another may be present in the system. A subsystem description is an object that defines a subsystem’s run-time properties. Jobs oRead more
A subsystem is an operating environment in as400 systems that manages resource allocation, usage, and job handling. Multiple subsystems that function independently of one another may be present in the system. A subsystem description is an object that defines a subsystem’s run-time properties. Jobs operate within the subsystem. The subsystem description explains the amount, location, and resource allocation of each work that enters the subsystem.
The following sections will review subsystems used for server jobs, IBM-supplied subsystems, create subsystems, start subsystems, end subsystems, work with subsystems, and commands, and check if subsystems are active.
Subsystem for server jobs
The server jobs are configured to operate in separate subsystems based on their function. The server jobs use the following subsystems.
QSYSWRK
QUSRWRK
QSERVER
QSYSWRK subsystem
This subsystem is responsible for running all daemon jobs.
QUSRWRK subsystem
Server jobs for the servers Network Print, Remote Command, Program Call, Central, Data Queue, Signon, and Database are executed in the QUSRWRK subsystem.
QSERVER subsystem
The file server and database server daemon jobs are executed in the QSERVER subsystem.
IBM subsystem
IBM provides the following subsystems, which are listed:
QBASE
QSERVER
QSPL
QSYSWRK
QUSRWRK
QCTL
QUINTER
QBATCH
QCMN
QBASE
One such controlling subsystem is the QBASE subsystem. Communication, Batch, and Interactive Jobs are supported. An autostart job starts the subsystems QSERVER, QSPL, and QUSRWRK.
QSERVER subsystem
A file server subsystem is called Qserver.
QSPL subsystem
Reader and writer jobs are supported by the QSPL subsystem, which is a spool subsystem.
QSYSWRK subsystem
A system work subsystem is called a QSYSWRK subsystem. It initiates automatically when the system boots up.
QUSRWRK subsystem
A user work subsystem is called QUSRWRK. It includes jobs that servers launch to carry out tasks for users.
QCTL subsystem
This subsystem is a control subsystem. It includes an autostart job that launches the QINTER, QBATCH, QCMN, QUSRWRK, QSERVER, and QSPL subsystems.
QUINTER subsystem
This subsystem facilitates interactive tasks.
QBATCH subsystem
This subsystem supports batch jobs.
QCMN subsystem
This subsystem supports the communication jobs to be executed within it, such as Client access and server jobs.
Create subsystem in as400
We must create the essential elements before creating a subsystem to carry out interactive and batch activities. After that, we can start or stop the subsystem. The following is a list of what has to be done first:
Subsystem Description
Job Queue
Class Object
Routing Entries
A few more actions after the subsystem is created:
Start subsystem
End subsystem
Create Subsystem Description
A system object, including general and storage pool definitions, is called a subsystem description. How the subsystem uses memory for work, where work can enter the subsystem, how much work it can manage, how much memory will be utilized for primary storage, and how storage pool properties determine the jobs run inside the subsystem.
The Subsystem Description can be created using the command CRTSBSD. CRTSBSD SBSD(libraryName/SubsystemName)
POOLS((1 *BASE))
MAXJOBS(10)
TEXT('Test subsystem')
10 jobs can be active at a time in the subsystem and operate in pool 1 with primary storage memory as *BASE.
Create job Queue
Use the CRTJOBQ command to create a job queue. CRTJOBQ JOBQ(LibraryName/JobQueueName) TEXT('Test Job Queue')
Add Job Queue Entry
After creating the JOBQ, use the command ADDJOBQE to attach it to the subsystem. ADDJOBQE SBSD(LibraryName/SubsystemName) JOBQ(LibraryName/JobQueueName) MAXACT(5)
The MAXACT option indicates the most jobs that this JOBQ can process concurrently.
Create Class
Use the CRTCLS command to create a class. CRTCLS CLS(LibraryName/ClassName) RUNPTY(40)
The class defines run time attributes like Run priority, Time slice, Default wait time, Maximum temporary storage, etc.
Add Routing Entry
The ADDRTGE command can add a routing entry to the subsystem description. To utilize routing entry 50, the character string TEST must begin at position 1 in the routing data. Through this item, any number of routing stages can be enabled at once. The programs will operate in storage pool 1 by utilizing the library class. ADDRTGE SBSD(LibraryName/SubsystemName) SEQNBR(50) CMPVAL(TEST)
PGM(LibraryName/ProgramName) CLS(LibraryName/ClassName)
Once the subsystem is created successfully, please follow the steps below.
Start subsystem
Start the subsystem by using the command STRSBS. The subsystem can be used to submit jobs once they have been started. STRSBS SBSD(LibraryName/SubsystemName)
End subsystem
The ENDSBS command terminates the subsystem. ENDSBS SBSD(SubsystemName) Work with subsystem
Use the command WRKSBS on the command line to work with the subsystem. Some important subsystem commands
Start subsystem command: Use the STRSBS command to initiate a subsystem.
End subsystem command: Use the ENDSBS command to terminate a subsystem.
Delete subsystem description command: Use the DLTSBSD command to eliminate a subsystem description. The subsystem must not be in an active state to use the DLTSBSD command.
Change subsystem description command: Use the CHGSBSD command to change the subsystem description.
Display subsystem description command: Use the DSPSBSD command to view the subsystem description.
Start subsystem using BRMS: Use the STRSBSBRM command to start a subsystem with BRMS.
Work with subsystem: Use the WRKSBS command to interact with subsystems.
Work with subsystem description: Use the WRKSBSD command to interact with subsystem descriptions.
Work with subsystem jobs: Use the WRKSBSJOB command to work with subsystem jobs.
Please follow these steps to copy the save file from IFS to the library. The first step is to create a save file in your library using the CRTSAVF command. CRTSAVF FILE(LIBNAME/SAVEFILENAME) For example, if the library name is TESTLIB and the save file name is SAVF1 then the command formed would beRead more
Please follow these steps to copy the save file from IFS to the library.
The first step is to create a save file in your library using the CRTSAVF command. CRTSAVF FILE(LIBNAME/SAVEFILENAME)
For example, if the library name is TESTLIB and the save file name is SAVF1 then the command formed would be CRTSAVF FILE(TESTLIB/SAVF1)
Use the CPY command to copy the IFS save file to the QSYS library. CPY OBJ(path/savefilename.savf)
TOOBJ(/qsys.lib/libname.lib/savefilename.file)
FROMCCSID(*PCASCII) TOCCSID(37) REPLACE(*YES)
For example, if the path is /home/developer, and save file name is savf1, and the library where the save file is to be copied is TESTLIB then the command formed would be CPY OBJ(/home/developer/savf1.savf)
TOOBJ(/qsys.lib/developer.lib/savf1.file)
FROMCCSID(*PCASCII) TOCCSID(37) REPLACE(*YES)
To transfer Savf from as400 to PC, follow the below steps: Open command prompt system 32. Type the cd desktop command in cmd and press Enter to change the directory to the desktop so the savf transfer happens from as400 to PC desktop. Type FTP and press Enter to start the savf transfer. Type open puRead more
To transfer Savf from as400 to PC, follow the below steps:
Open command prompt system 32.
Type thecd desktopcommand in cmd and press Enter to change the directory to the desktop so the savf transfer happens from as400 to PC desktop.
TypeFTPand press Enter to start the savf transfer.
Typeopen pub400.comand press Enter to open the connection with the as400 machine.
Once connected to the as400 machine, pub400.com, you will be asked toenter your user IDand then thepasswordof the as400 machine to log in to the as400 machine pub400.com.
Once log in successfully, TypeBINand press Enter to enter the binary mode.
To transfer Savf from as400 to PC, type the below command get /qsys.lib/libname.lib/savefile.savf testsav2.savf
wherelibnameis the name of the as400 library where savefile is present and savefile is the name of the save file to be transferred from as400 to PC.
You can copy the ifs file to another directory on IBM i (formerly AS400) by executing the following command. Use the CPY command to copy the IFS file to another directory. CPY OBJ(frompath/filename) TODIR(topath) REPLACE(*YES) where the frompath can be let’s say “/home/developer/” and the filename cRead more
You can copy the ifs file to another directory on IBM i (formerly AS400) by executing the following command. Use theCPYcommand to copy the IFS file to another directory. CPY OBJ(frompath/filename) TODIR(topath) REPLACE(*YES)
where thefrompathcan be let’s say “/home/developer/” and the filename can be “file1.zip” andtopathcan be let’s say “/developer/files/zipfiles”.
You can follow the below steps to copy savf from ifs to pc. Open the command prompt. Type the cd desktop command in cmd and press Enter to change the directory to the desktop so that we copy the savf from ifs to the PC desktop. Type FTP and press Enter to start the savf transfer. Type open pub400.coRead more
You can follow the below steps to copy savf from ifs to pc.
Open the command prompt.
Type thecd desktopcommand in cmd and press Enter to change the directory to the desktop so that we copy the savf from ifs to the PC desktop.
TypeFTPand press Enter to start the savf transfer.
Typeopen pub400.comand press Enter to open the connection with the as400 machine.
Once connected to the as400 machine, pub400.com, you will be asked toenter your user IDand then thepasswordof the as400 machine to log in to the as400 machine pub400.com.
Once log in successfully, TypeBINand press Enter to enter the binary mode.
To copy savf from IFS to PC, type the below command get /path/savefilename.savf where the path can be let’s say “/home/developer” or “/developer/rpg/savefiles”. it’s a user path where the savf is located in ifs and savefilename is the name of savf including its extension .savf.
we can copy the ifs file to the physical file using the CPYFRMIMPF (copy from import file) command. Like CPYTOIMPF command is used to copy physical files to ifs in the same way CPYFRMIMPF is used to copy physical files in ifs back to the physical file. CPYFRMIMPF FROMSTMF('/home/developer/pfname') TRead more
we can copy the ifs file to the physical file using the CPYFRMIMPF (copy from import file) command. Like CPYTOIMPF command is used to copy physical files to ifs in the same way CPYFRMIMPF is used to copy physical files in ifs back to the physical file.
here. cpyfrmimpf command parameter FROMSTMF received the value filename and ifs user path where the file is located. TOFILE parameter received the value library name/filename RCDDLM is *LFCR(line feed and carriage return) STRDLM(*NONE), by default its *DBLQUOTE and RMVCOLNAM(*YES), we need to remove column names if we have column names present in the ifs file.
what is level check error and how to resolve level check error?
CPF4131 is a record format level check error. This indicates that the format level ID in the file at the time of program compilation is not found when the program opens the file. This means that the file structure has been changed after the program compilation. You must recompile your program to resRead more
CPF4131 is a record format level check error. This indicates that the format level ID in the file at the time of program compilation is not found when the program opens the file. This means that the file structure has been changed after the program compilation. You must recompile your program to resolve the CPF4131, i.e. level check error.
CPF4131 usually occurs when the program tries to access files whose record format differs from the record format level used during program compilation. The solution to level check error, i.e. CPF4131, could be to set the LVLCHK option (*NO) during file compilation. This will ensure that the record format will not be checked during file opening, but this is not a suggested approach to follow.
CPF4131 level check error can be resolved by recompiling the programs. Steps to follow to fix the CPF4131 error:
- Run the DSPPGMREF command from the command line for the program experiencing a level check problem.
- Verify the record format ID of the files in the program.
- Compare the actual record format ID of the file by doing DSPFD on the file and the one stored in the DSPPGMREF output. If they are not equal, then recompile the program.
See lessWhat are AS400 systems. Please provide a introduction of AS400 systems?
In AS400, "AS" stands for Application system. This article discusses what AS400 is, its history, the operating system it uses, its features, use, and other essential things. Introduction Let me first talk about what the AS400 system is. It is a midrange server introduced by IBM in 1988 in Rochester,Read more
In AS400, “AS” stands for Application system. This article discusses what AS400 is, its history, the operating system it uses, its features, use, and other essential things.
Introduction
Let me first talk about what the AS400 system is. It is a midrange server introduced by IBM in 1988 in Rochester, Minnesota. It is a compact mainframe system that replaces System/36 and System/38.
History
Let’s look at the history of AS400. The AS400 system was renamed several times, from eServer iSeries in 2000 to System i in 2006. Later, in 2008, System I merged with System P and became Power System.
For more information, please read IBM’s history of AS400 in detail.
Operating System
OS400 is the operating system used. OS400 is now known as the IBM i power system. The current version of the operating system is IBM i 7.4 which supports logical partitioning (LPAR) where multiple OS can run simultaneously on the same IBM i machine.
Features
The AS400 is an object-oriented system where everything is an object. It uses files to store data. It interfaces with hardware via a technology-independent machine interface (TIMI) rather than directly and is not dependent on any specific technology. Customers can switch their applications to new hardware technology at any time.
AS400 has software for communications, backup, and recovery. It has an inbuilt DB2 database. It’s a safe, multiuser and multitasking system. Additionally, it supports file systems, web application servers, and web service servers, among other tools. The system consists of Independently installed software components called licensed programs. The changes made to the parts require a PTF. Hence, we can install PTFs permanently or temporarily.
Use
AS400 is used in businesses that value safety, stability, and dependability. Several corporate applications use AS400, such as Manufacturing, Finance, Transportation and logistics, Banks, ERP, etc.
Cloud
AS400 cloud services are now provided by Amazon web services, Google Cloud platform, Microsoft Azure, etc.
Technical introduction
It contains a sizeable library-based operating system. It supports programming languages such as RPG, COBOL, Assembly, C, C++, Java, PHP, Python, REXX, CL, and SQL.
Several CASE tools are available on AS400 systems, such as Accelerator, Synon, LANSA, IBM Rational Business Developer Extension, etc.
AS400 developers generally use programming languages such as RPG, CL, SQL DB2, Java, XML, etc.
It uses an integrated language environment (ILE) programming environment, which allows us to create single programs from modules in different programming languages such as C, C++, RPG, CL, COBOL, etc. It fully supports the Java language. Several IBM i terminal emulators are available for accessing AS400, such as IBM i ACS, Mocha TN5250, and 5250 emulators. It supports both JDBC and ODBC connectivity. It offers a command and menu-driven interface. This system works in a single operating environment known as a subsystem.
Careers
AS400 is still in high demand in 2024. Many companies globally use AS400 systems. Freshers can opt for several roles in this technology, as indicated below.
Integrations
IBMi can share data and communicate with other systems. Moreover, it integrates with file servers, web apps, etc. It can integrate with SAP and JD Edwards. WordPress is hosted on IBM i servers and powers websites and online commerce. Tableau and Power BI tools connect to Salesforce and IBM i databases. IBM i is compatible with iOS and Android mobile OS. Social media networks such as Facebook, LinkedIn, and X (formerly Twitter) integrate with it. E-commerce sites such as Shopify, Amazon, and others are compatible with it. IBM I can integrate with banks and payment gateway for secure transactions. IBM i can integrate with their party software/services using APIs and Web services. The operating system supports Oracle, SQL Server, MySQL, DB2, etc.
Where can I learn more about IBM i?
You can refer to the following material to learn about IBM i technology.
Explore the IBM i system
Conclusion
AS400 is a midrange server now known as a power system. IBM i 7.5 is the current version of the operating system, and it is object-oriented. It is a very stable system, and some firms have adopted the As400 cloud services. IBM i can integrate with other external systems.
AS400 is still in high demand in 2024. Many companies globally use AS400 systems. Freshers can opt for several roles in this technology, as indicated below.
Integrations
IBMi can share data and communicate with other systems. Moreover, it integrates with file servers, web apps, etc. It can integrate with SAP and JD Edwards. WordPress is hosted on IBM i servers and powers websites and online commerce. Tableau and Power BI tools connect to Salesforce and IBM i databases. IBM i is compatible with iOS and Android mobile OS. Social media networks such as Facebook, LinkedIn, and X (formerly Twitter) integrate with it. E-commerce sites such as Shopify, Amazon, and others are compatible with it. IBM I can integrate with banks and payment gateway for secure transactions. IBM i can integrate with their party software/services using APIs and Web services. The operating system supports Oracle, SQL Server, MySQL, DB2, etc.
Where can I learn more about IBM i?
You can refer to the following material to learn about IBM i technology.
Explore the IBM i system
Conclusion
AS400 is a midrange server now known as a power system. IBM i 7.5 is the current version of the operating system, and it is object-oriented. It is a very stable system, and some firms have adopted the As400 cloud services. IBM i can integrate with other external systems.
See lessIs there any online server available for practicing on AS400 system?
PUB400 is an accessible online IBM i server where anyone can create a user profile and get access to the server. Additionally, they will get 500 MB of disk storage and two private libraries for their practice. PUB400 is hosting IBM i 7.5. This was started in the year 2000, and according to the PUB40Read more
PUB400 is an accessible online IBM i server where anyone can create a user profile and get access to the server. Additionally, they will get 500 MB of disk storage and two private libraries for their practice. PUB400 is hosting IBM i 7.5. This was started in the year 2000, and according to the PUB400 website reports, this server has more than 40K active user profiles globally.
PUB400 sign up – as400 server sign up
To start practicing on the PUB400 server, you must first register at pub400.com. Click here to join pub400 at any time. To register on PUB400, you must provide your first and last name, email address, and IBM I user name, agree to their terms and conditions, and submit the registration form. This will trigger an email with the instructions to do next.
Pub400 IP address
Pub400 IP address is 185.113.5.134.
Pub400 connection – as400 server connection
Install and open Access Client Solutions (ACS) software on your Windows machine. After that, start ACS and enter pub400.com as the Destination Address. You are prompted to enter your username and password that you get from PUB400.
Pub400 User forum
After creating your user profile on PUB40, you can now ask questions and share your knowledge on a community forum run by PUB400. To access the pub400 community forum, you must validate your user ID and password. Here, you will find information regarding PUB400.com announcements.
PUB400 not working
If you face connectivity issues with pub400, visit the FAQ page on PUB400.com.
Free tools on as400 server
On the PUB400 IBM i server, you will see that several free tools are installed on the server, such as iQuery, IBM i Report Server by KDP, FFD, and AL400S. Click here for additional details.
See lessWhat are the menus available in AS400?
Menus provides access to various AS400 commands and the system functionalities. The menu name appears on the top left corner of a menu and can be seen by invoking that menu. Also, each menu provides a command line from where we can select any options provided on the menu. Type GO <menu-name> oRead more
Menus provides access to various AS400 commands and the system functionalities. The menu name appears on the top left corner of a menu and can be seen by invoking that menu. Also, each menu provides a command line from where we can select any options provided on the menu. Type GO <menu-name> on the command line and press enter to access any specific menu.
Display All as400 menu
Use the GO *ALL command to display a list of all available menus in the AS400 system.
main menu
After logging in to the IBM i machine, the MAIN menu appears on the first screen. We can also type GO MAIN on the command line to enter the MAIN menu.
Option ranges 1 through 11 are available on the MIAN menu, including option 90, which allows you to sign off from IBM i. There is a menu option from 1 to 11, and finally 90 for SIGN OFF. You can select any available option.
user menu
Take option 1 on the MAIN menu screen to access the USER menu.
Office Task menu
Take option 2 on the MAIN menu screen to access the office task (OFCTSK) menu.
System menu
Take option 3 on the MAIN menu screen to access the system menu.
Some other helpful AS400 menus are available for use.
major menu
Type GO MAJOR on the command line to enter into this menu.
verb menu
Type GO VERB on the command line and press Enter to enter into this menu.
Create a menu in as400
STRSDA utility invokes SDA(screen design aid) and creates a menu. Type STRSDA on the command line and press Enter. On the next screen, take option 2 (design menu) to create a menu. You can do this for practicing purposes on the accessible online public as400 server; for more details about the Menu, visit here.
You must specify the menu name, source file, and library on the Design menu screen. It checks for the menu’s existence; if no menu exists with specified details, a menu gets created.
Enter on the Specify Menu Functions display.
Press Enter on the Specify menu functions screen, which will display the below screen with 10 options where you provide commands to every option.
Add some menu options.
SDA inserts the code in the backend DSPF source member from the inputs provided on the menu screen. The display attribute for each text string is contained in a hidden character that appears before each text block. SDA will display white or high-intensity text if you type an “H” directly before a text block and in reverse image when “R” and “D” will make the text disappear.
Define the commands for every selection after that. To input the commands, press F10 which is displayed below screen:
This is where you input the commands linked to every choice. Thus, type the commands as follows:
To escape, press F3 a few times. Check the name of the “object library” after you quit SDA. Your compiled menu objects will be placed here.
Once you press Enter, the menu source gets compiled, and SDA will create three objects of the same name as the menu name but of type *MSGF, *FILE attribute DSPF, and *MENU attribute DSPF.
as400 call menu
After the menu gets created, you can call that menu by typing GO <menu-name> on the command line and pressing Enter.
What is subsystem in AS400?
A subsystem is an operating environment in as400 systems that manages resource allocation, usage, and job handling. Multiple subsystems that function independently of one another may be present in the system. A subsystem description is an object that defines a subsystem’s run-time properties. Jobs oRead more
A subsystem is an operating environment in as400 systems that manages resource allocation, usage, and job handling. Multiple subsystems that function independently of one another may be present in the system. A subsystem description is an object that defines a subsystem’s run-time properties. Jobs operate within the subsystem. The subsystem description explains the amount, location, and resource allocation of each work that enters the subsystem.
The following sections will review subsystems used for server jobs, IBM-supplied subsystems, create subsystems, start subsystems, end subsystems, work with subsystems, and commands, and check if subsystems are active.
Subsystem for server jobs
The server jobs are configured to operate in separate subsystems based on their function. The server jobs use the following subsystems.
QSYSWRK subsystem
This subsystem is responsible for running all daemon jobs.
QUSRWRK subsystem
Server jobs for the servers Network Print, Remote Command, Program Call, Central, Data Queue, Signon, and Database are executed in the QUSRWRK subsystem.
QSERVER subsystem
The file server and database server daemon jobs are executed in the QSERVER subsystem.
IBM subsystem
IBM provides the following subsystems, which are listed:
One such controlling subsystem is the QBASE subsystem. Communication, Batch, and Interactive Jobs are supported. An autostart job starts the subsystems QSERVER, QSPL, and QUSRWRK.
QSERVER subsystem
A file server subsystem is called Qserver.
QSPL subsystem
Reader and writer jobs are supported by the QSPL subsystem, which is a spool subsystem.
QSYSWRK subsystem
A system work subsystem is called a QSYSWRK subsystem. It initiates automatically when the system boots up.
QUSRWRK subsystem
A user work subsystem is called QUSRWRK. It includes jobs that servers launch to carry out tasks for users.
QCTL subsystem
This subsystem is a control subsystem. It includes an autostart job that launches the QINTER, QBATCH, QCMN, QUSRWRK, QSERVER, and QSPL subsystems.
QUINTER subsystem
This subsystem facilitates interactive tasks.
QBATCH subsystem
This subsystem supports batch jobs.
QCMN subsystem
This subsystem supports the communication jobs to be executed within it, such as Client access and server jobs.
Create subsystem in as400
We must create the essential elements before creating a subsystem to carry out interactive and batch activities. After that, we can start or stop the subsystem. The following is a list of what has to be done first:
A few more actions after the subsystem is created:
Create Subsystem Description
A system object, including general and storage pool definitions, is called a subsystem description. How the subsystem uses memory for work, where work can enter the subsystem, how much work it can manage, how much memory will be utilized for primary storage, and how storage pool properties determine the jobs run inside the subsystem.
The Subsystem Description can be created using the command CRTSBSD.
CRTSBSD SBSD(libraryName/SubsystemName)POOLS((1 *BASE))
MAXJOBS(10)
TEXT('Test subsystem')
10 jobs can be active at a time in the subsystem and operate in pool 1 with primary storage memory as *BASE.
Create job Queue
Use the
CRTJOBQcommand to create a job queue.CRTJOBQ JOBQ(LibraryName/JobQueueName) TEXT('Test Job Queue')Add Job Queue Entry
After creating the JOBQ, use the command
ADDJOBQEto attach it to the subsystem.ADDJOBQE SBSD(LibraryName/SubsystemName) JOBQ(LibraryName/JobQueueName) MAXACT(5)The
MAXACToption indicates the most jobs that this JOBQ can process concurrently.Create Class
Use the
CRTCLScommand to create a class.CRTCLS CLS(LibraryName/ClassName) RUNPTY(40)The class defines run time attributes like Run priority, Time slice, Default wait time, Maximum temporary storage, etc.
Add Routing Entry
The
ADDRTGEcommand can add a routing entry to the subsystem description. To utilize routing entry 50, the character string TEST must begin at position 1 in the routing data. Through this item, any number of routing stages can be enabled at once. The programs will operate in storage pool 1 by utilizing the library class.ADDRTGE SBSD(LibraryName/SubsystemName) SEQNBR(50) CMPVAL(TEST)PGM(LibraryName/ProgramName) CLS(LibraryName/ClassName)
Once the subsystem is created successfully, please follow the steps below.
Start subsystem
Start the subsystem by using the command
STRSBS. The subsystem can be used to submit jobs once they have been started.STRSBS SBSD(LibraryName/SubsystemName)End subsystem
The
ENDSBScommand terminates the subsystem.ENDSBS SBSD(SubsystemName)Work with subsystem
Use the command
WRKSBSon the command line to work with the subsystem.Some important subsystem commands
- Start subsystem command: Use the
- End subsystem command: Use the
- Delete subsystem description command: Use the
- Change subsystem description command: Use the
- Display subsystem description command: Use the
- Start subsystem using BRMS: Use the
- Work with subsystem: Use the
- Work with subsystem description: Use the
- Work with subsystem jobs: Use the
See lessSTRSBScommand to initiate a subsystem.ENDSBScommand to terminate a subsystem.DLTSBSDcommand to eliminate a subsystem description. The subsystem must not be in an active state to use the DLTSBSD command.CHGSBSDcommand to change the subsystem description.DSPSBSDcommand to view the subsystem description.STRSBSBRMcommand to start a subsystem with BRMS.WRKSBScommand to interact with subsystems.WRKSBSDcommand to interact with subsystem descriptions.WRKSBSJOBcommand to work with subsystem jobs.How to copy a save file from IFS to a library?
Please follow these steps to copy the save file from IFS to the library. The first step is to create a save file in your library using the CRTSAVF command. CRTSAVF FILE(LIBNAME/SAVEFILENAME) For example, if the library name is TESTLIB and the save file name is SAVF1 then the command formed would beRead more
Please follow these steps to copy the save file from IFS to the library.
The first step is to create a save file in your library using the CRTSAVF command.
CRTSAVF FILE(LIBNAME/SAVEFILENAME)For example, if the library name is TESTLIB and the save file name is SAVF1 then the command formed would be
CRTSAVF FILE(TESTLIB/SAVF1)Use the CPY command to copy the IFS save file to the QSYS library.
CPY OBJ(path/savefilename.savf)TOOBJ(/qsys.lib/libname.lib/savefilename.file)
FROMCCSID(*PCASCII) TOCCSID(37) REPLACE(*YES)
For example, if the path is
See less/home/developer, and save file name issavf1, and the library where the save file is to be copied isTESTLIBthen the command formed would beCPY OBJ(/home/developer/savf1.savf)TOOBJ(/qsys.lib/developer.lib/savf1.file)
FROMCCSID(*PCASCII) TOCCSID(37) REPLACE(*YES)
How to transfer savf from as400 to pc?
To transfer Savf from as400 to PC, follow the below steps: Open command prompt system 32. Type the cd desktop command in cmd and press Enter to change the directory to the desktop so the savf transfer happens from as400 to PC desktop. Type FTP and press Enter to start the savf transfer. Type open puRead more
To transfer Savf from as400 to PC, follow the below steps:
- Open command prompt system 32.
- Type the cd desktop command in cmd and press Enter to change the directory to the desktop so the savf transfer happens from as400 to PC desktop.
- Type FTP and press Enter to start the savf transfer.
- Type open pub400.com and press Enter to open the connection with the as400 machine.
- Once connected to the as400 machine, pub400.com, you will be asked to enter your user ID and then the password of the as400 machine to log in to the as400 machine pub400.com.
- Once log in successfully, Type BIN and press Enter to enter the binary mode.
- To transfer Savf from as400 to PC, type the below command
See lessget /qsys.lib/libname.lib/savefile.savf testsav2.savfwhere
libnameis the name of the as400 library where savefile is present and savefile is the name of the save file to be transferred from as400 to PC.How to copy ifs file to another directory?
You can copy the ifs file to another directory on IBM i (formerly AS400) by executing the following command. Use the CPY command to copy the IFS file to another directory. CPY OBJ(frompath/filename) TODIR(topath) REPLACE(*YES) where the frompath can be let’s say “/home/developer/” and the filename cRead more
You can copy the ifs file to another directory on IBM i (formerly AS400) by executing the following command. Use the CPY command to copy the IFS file to another directory.
See lessCPY OBJ(frompath/filename) TODIR(topath) REPLACE(*YES)where the
frompathcan be let’s say “/home/developer/” and the filename can be “file1.zip” andtopathcan be let’s say “/developer/files/zipfiles”.How to copy savf from ifs to pc?
You can follow the below steps to copy savf from ifs to pc. Open the command prompt. Type the cd desktop command in cmd and press Enter to change the directory to the desktop so that we copy the savf from ifs to the PC desktop. Type FTP and press Enter to start the savf transfer. Type open pub400.coRead more
You can follow the below steps to copy savf from ifs to pc.
- Open the command prompt.
- Type the cd desktop command in cmd and press Enter to change the directory to the desktop so that we copy the savf from ifs to the PC desktop.
- Type FTP and press Enter to start the savf transfer.
- Type open pub400.com and press Enter to open the connection with the as400 machine.
- Once connected to the as400 machine, pub400.com, you will be asked to enter your user ID and then the password of the as400 machine to log in to the as400 machine pub400.com.
- Once log in successfully, Type BIN and press Enter to enter the binary mode.
- To copy savf from IFS to PC, type the below command
See lessget /path/savefilename.savfwhere the path can be let’s say “/home/developer” or “/developer/rpg/savefiles”. it’s a user path where the savf is located in ifs and
savefilenameis the name of savf including its extension .savf.How to copy ifs file to physical file?
we can copy the ifs file to the physical file using the CPYFRMIMPF (copy from import file) command. Like CPYTOIMPF command is used to copy physical files to ifs in the same way CPYFRMIMPF is used to copy physical files in ifs back to the physical file. CPYFRMIMPF FROMSTMF('/home/developer/pfname') TRead more
we can copy the ifs file to the physical file using the
CPYFRMIMPF(copy from import file) command. Like CPYTOIMPF command is used to copy physical files to ifs in the same way CPYFRMIMPF is used to copy physical files in ifs back to the physical file.CPYFRMIMPF FROMSTMF('/home/developer/pfname')TOFILE(libname/filename)
MBROPT(*replace)
RCDDLM(*LFCR)
STRDLM(*NONE)
RMVCOLNAM(*YES)
here.
See lesscpyfrmimpfcommand parameter FROMSTMF received the value filename and ifs user path where the file is located. TOFILE parameter received the value library name/filename RCDDLM is *LFCR(line feed and carriage return) STRDLM(*NONE), by default its *DBLQUOTE and RMVCOLNAM(*YES), we need to remove column names if we have column names present in the ifs file.