Skip to content

Instantly share code, notes, and snippets.

@JohnArchieMckown
JohnArchieMckown / DEFINES
Last active October 6, 2021 10:27
REXX program to parse a LISTCAT and create IDCAMS control cards
/* REXX PROGRAM TO GENERATE IDCAMS DEFINE */
TRACE E
DEFINED = ""
RESTARTS = 0
CARD='/* RUN AT ' TIME('N') ' ON ' DATE('S')
DO FOREVER;
EXITCODE = @MAIN()
IF EXITCODE = 0 THEN LEAVE
RESTARTS = RESTARTS+1
IF RESTARTS > 3 THEN LEAVE