Ingieneria De Sistema

FPRIVATE "TYPE=PICT;ALT="
Free Form RPG
What more can I say, "I kinda like it."

I know you have a programmer in the building that says " These punch cards were good enough for me in the 70’s so there good enough for me now. This is for them slip a couple lines of Free Format RPG into their source and watch their heads explode.

If nothing else, this will give you a taste of otherlanguages, cause believe it or not, the time is coming/here when those PC type languages are going to slowly replace our beloved RPG.

The only two lines of code that must start in a specific position are the compiler directives /FREE and /END-FREE, which begin in column 7. The lines in between can use any columns between 8 and 80, allowing you to logically indent your code as we did here.Notice that even operations like Read, Dsply and BegSR can be used in free format.
Each statement ends with a semicolon. That is something you’ll forget many times before it becomes natural to you. You are still limited to one op-code per line, which is probably a good idea, but statements can span multiple lines if necessary.

Supported Opcodes
Op-Code Purpose
ACQ Acquire device
BEGSRBegin Subroutine
CALLP Call Prototyped Procedure or Program
CHAIN Retrieve Record by key
CLEAR Clear
CLOSE Close File
COMMIT Commit Database changes
DEALLOC Release Dynamically Allocated Storage
DELETE Delete Record
DOU Do Until
DOW Do While
DSPLY Display message
DUMP Dump Program
ELSE Else
ELSEIF Else If
ENDyyEnd a Structured Group (where yy = DO, FOR, IF, MON, SL, or SR)
EVAL Evaluate expression
EVALR Evaluate expression and right adjust result
EXCEPT Perform Exception Output
EXFMT Write/Then Read Format from display
EXSR Execute Subroutine
FEOD Force End of Data
FOR For
FORCE Force specified file to be read on next Cycle
IF If
IN Retrieve aData Area
ITER Iterate
LEAVE Leave a Do/For Group
LEAVESR Leave a Subroutine
MONITOR Begin a Monitor Group
NEXT Next
ON-ERROR Specify errors to handle within MONITOR group
OPEN Open File for Processing
OTHER Start of default processing for SELECT group
OUT Write Data Area
POST Post
READ Read a record
READC Read next changedrecord
READE Read next record with equal Key
READP Read prior record
READPE Read prior record with equal Key
REL Release
RESET Reset
RETURN Return to Caller
ROLBK Roll Back uncommitted database changes
SELECT Begin a Select Group
SETGT Position database to record with key greater than specified key
SETLL Position database to record withkey not greater than specified key
SORTA Sort an Array
TEST Test Date/Time/Timestamp
UNLOCK Unlock a Data Area or Release a Record
UPDATE Modify Existing Record
WHEN Condition test within SELECT group
WRITE Write New Record




Simple Example download text file
D*
D* Program InfoD*
D SDS
D @PGM 001 010
D @PARMS 037 039 0
D @JOB 244 253
D@USER 254 263
D @JOB# 264 269 0
D*
D* Constants
D*
D CMP01 C CONST(01)...