- Notifications
You must be signed in to change notification settings - Fork2
iSeries - Find Loop and Branch Conditions start and end line.
License
cod-e-ash/LoopCond
Folders and files
| Name | Name | Last commit message | Last commit date | |
|---|---|---|---|---|
Repository files navigation
This is part of myRPG Utils series to help overcome some of the day-to-day activities which can be automated.
During analysis of old rpg or cl codes, we come across sections where its very confusing that which line is part of which if condition or dow loop. This happens moslty when we deal with old rpg codes or some linear code with no indentation. This ustility will help to find the line to start of conditions like (IF, SELECT etc.) and also looping conditions like (DOW, DOU, WHILE, FOR etc.)
These instructions will get you a copy of the project up and running on your local machine for development and testing purposes.
You need to have AS400 Machine access (duh!)
Create a RPGUtils Source File to store the files.
CRTSRCPF RPGUTILSIFLBLF
This is a PF source which will hold output after running the program on any give source code file.IFLBLC
Driver CL program.IFLBLCMD
Driver command source file.IFLBLP
Main program.
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 disconnect quitStep 2.Change the atribute type accordingly once uploaded.
IFLBLC CLLE IFLBLCMD CMD IFLBLF PF IFLBLP SQLRPGLEStep3.Use below command to compile.
CRTPF FILE(YOURLIB/IFLBLF) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(IFLBLF) CRTSQLRPGI OBJ(YOURLIB/IFLBLP) SRCFILE((YOURLIB/RPGUTILS) SRCMBR(IFLBLP) OBJTYPE(*PGM) REPLACE(*YES) CRTBNDCL PGM(YOURLIB/IFLBLC) SRCFILE((YOURLIB/RPGUTILS) SRCMBR(IFLBLC) REPLACE(*NO) CRTCMD CMD(YOURLIB/IFLBL) PGM(*LIBL/IFLBLC) SRCFILE(YOURLIB/RPGUTILS) SRCMBR(IFLBLCMD) REPLACE(*YES)IFLBL <source member name> <source file> <source library>E.g.IFLBL SRCMBR(IFLBLP) SRCFIL(RPGUTILS) SRCLIB(YOURLIB)This will output a file IFLBLF. FSTRSEQ is the start line, FEBDSEQ is the end of the sequence.Rest fields will tell you if there are else conditions etc.
SELECT * FROM IFLBLFO/P:FID FSTRSEQ FENDSEQ FIFDATA 1 47.00 220.00 DoW SQLCOD = 0; 2 50.00 216.00 If %SubSt(SRCDTA:7:1) <> '*' And ( 3 55.00 140.00 Select; 4 69.00 72.00 If %SubSt(wkStrUpper:26:5) = ' CAS' Or 5 101.00 113.00 If FElseSq1 = *Zeros; 6 128.00 130.00 If wkCasFlg = *On; 7 146.00 150.00 If %Scan('//':SRCDTA) > 0; 8 155.10 155.13 If wkFoundStart <= 0; 9 155.16 155.22 If wkFoundStart > 0;Ashish Bagaddeo
This project is licensed under the Apache License v2.0 - see theLICENSE.md file for details
Thankswww.PUB400.com for hosting a public server.