RPG Auto Screen Generator
This is part of my RPG Utils series to help overcome some of the day-to-day activities which can be automated.
Those are starting with development, I would advise not to use this utility, but to build their own code. For the rest, here's a simple solution that will save you and your company lots of time. This utility will develop the subfile screens, maintenance screens and all the logic behind the program within few minutes.
Getting Started
These instructions will get you a copy of the project up and running on your local machine for development and testing purposes.
Prerequisites
You need to have AS400 Machine access (duh!)
Create a RPGUtils Source File to store the files.
CRTSRCPF RPGUTILS
Program and Object Descriptions
-
AUTOSCRAF
This is a PF source which will hold the data to generate programs and screens.
Create four files based on this source AUTOSCRAF1, AUTOSCRAF2, AUTOSCRAF3, AUTOSCRAF4 -
AUTOSCRAF1/2/3/4
This contain the data to be inserted into source files created before. (Use name as reference) -
AUTOSCRC
This is a driver CL program. -
AUTOSCRC
Command file. Use this source to create the command, use any name, but make sure you are calling the above CL as program. -
AUTOSCRP
Main program that contains all the logic. -
CPYBK
A copybook to store prototype definitions and other. If you use any other library that RPGUTILS, please change the path in above RPG program for this copy book.
Installing
Step 1. Upload all files to AS400 server, use ftp. DO NOT CHANGE THE MODE TO BINARY.
open pub400.com
username
password
cd /QSYS.LIB
cd YOURLIB.LIB
cd RPGUTILS.FILE
mput *.MBR
cd /home/YOURLIB/
mput *.txt
disconnect
quit
Step 2. Change the attribute type accordingly once uploaded.
AUTOSCRAF PF
AUTOSCRC CLLE
AUTOSCRCC CMD
AUTOSCRD DSPF
AUTOSCRP SQLRPGLE
CPYBK CPY
Step3. Use below command to compile.
CRTPF FILE(YOURLIB/AUTOSCRAF1) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(AUTOSCRAF)
CRTPF FILE(YOURLIB/AUTOSCRAF2) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(AUTOSCRAF)
CRTPF FILE(YOURLIB/AUTOSCRAF3) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(AUTOSCRAF)
CRTPF FILE(YOURLIB/AUTOSCRAF4) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(AUTOSCRAF)
CRTBNDCL PGM(YOURLIB/AUTOSCRC) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(AUTOSCRC) REPLACE(*YES)
CRTCMD CMD(YOURLIB/AUTOSCRC) PGM(*LIBL/AUTOSCRCC) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(AUTOSCRCC) REPLACE(*YES)
CRTDSPF FILE(YOURLIB/AUTOSCRD) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(AUTOSCRD) REPLACE(*YES)
CRTSQLRPGI OBJ(YOURLIB/AUTOSCRP) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(AUTOSCRP) COMMIT(*NONE) OBJTYPE(*PGM) REPLACE(*NO)
Step 4. Copy the data from the .txt files to AUTOSCRAF1/2/3/4
CPYFRMIMPF FROMSTMF('/home/YOURLIB/AUTOSCRAF1.txt') TOFILE(AUTOSCRAF1) MBROPT(*REPLACE) RCDDLM(*CRLF) RMVBLANK(*NONE)
CPYFRMIMPF FROMSTMF('/home/YOURLIB/AUTOSCRAF2.txt') TOFILE(AUTOSCRAF2) MBROPT(*REPLACE) RCDDLM(*CRLF) RMVBLANK(*NONE)
CPYFRMIMPF FROMSTMF('/home/YOURLIB/AUTOSCRAF3.txt') TOFILE(AUTOSCRAF3) MBROPT(*REPLACE) RCDDLM(*CRLF) RMVBLANK(*NONE)
CPYFRMIMPF FROMSTMF('/home/YOURLIB/AUTOSCRAF4.txt') TOFILE(AUTOSCRAF4) MBROPT(*REPLACE) RCDDLM(*CRLF) RMVBLANK(*NONE)
Running
Your library needs to be added to library list. Use below code.
ADDLIBLE YOURLIB
Call Program with a prefix and optional library.
If library specified, it will be used to create the program and display source files.
Prefix if used to name the programs and display files.
E.g. if prefix is FIRST, then the display files would be FIRSTMD, FIRSTSD and programs would be FIRSTMP, FIRSTSP.
AUTOSCRC PGMPRFX(FIRST) LIBL(YOURLIB)
You will need to provide information like file (for which the screen is to be generated), library where file is present.
Some optional additional information like Description, Author, Date etc.
The next thing it will ask is about fields to be present in subfile and if you want to have any positions. At least one field needs to be present in your subfile display.
Program will compile the display files and program automatically. You can then check by calling as below
CALL FIRSTSP
Troubleshooting
Check YOURLIB/AUTOSCRF file where the source will be generated for any errors/modifications.
Authors
Ashish Bagaddeo
License
This project is licensed under the Apache License v2.0 - see the LICENSE.md file for details
Acknowledgments
Thanks www.PUB400.com for hosting a public server.