Example

The following example restricts the sort selection to production jobs by interrogating the first four positions of the job description.

/DO FOREVER
/   IF SUBSTR(JDESC,1,4) = 'PROD'
/      RELEASE
/   END

/NEXT RECORD
/END
/SORT RID
/PRINT RID
/PRINT RDESC
/END