Slide 44 of 80
Notes:
- If the JOB record is continued (ends with an ampersand) then the first WHILE loop above will read the remaining continuation lines.
- Each continuation line is appended to the return variable (arg1) after numbers and leading spaces (ltrim) are removed.
- !_str_arg1 is referenced, rather than simply “_str_arg1” since the contents of _str_arg1 is the name of a variable. For instance, in the STREAM UDC arg1 is passed as “_str_jobcard”. After calling the read_jobcard entry the main body of the UDC will test the value of _str_jobcard, looking for a JOBQ parameter. Using !_str_arg1 on the left side of a SETVAR is like using “_str_jobcard”.
- Next, any user, account and/or group passwords, if present, are removed (not blanked over). If a password is found (pos of “/” > 0) then the “/” and the password itself are replaced with “”.
- Finally, the concatenated, password filtered, de-numbered, de-blanked and upshifted JOB record is returned, via arg1, to the caller. The “:JOB “ portion is also removed by the xword function.
