The IF macro can be paired with an ELSEIF companion macro to build a simple case statement. In the code below, DAY is a one-byte character field containing a single digit representing a day of the week (1 = Sunday, 2 = Monday, …). We use the DAY field to build DAYO, a character version of the day. We combine this logic with an OR in the final condition to catch Saturday and Sunday.
LOOP EQU * IF (CLC,DAY,EQ,=C'2') MVC DAYO,=CL9'MONDAY' ELSEIF (CLC,DAY,EQ,=C'3') MVC DAYO,=CL9'TUESDAY' ELSEIF (CLC,DAY,EQ,=C'4') MVC DAYO,=CL9'WEDNESDAY' ELSEIF (CLC,DAY,EQ,=C'5') MVC DAYO,=CL9'THURSDAY' ELSEIF (CLC,DAY,EQ,=C'6') MVC DAYO,=CL9'FRIDAY' ELSEIF (CLC,DAY,EQ,=C'1'),OR,(CLC,DAY,EQ,=C'7') MVC DAYO,=CL9'WEEKEND' ENDIF PUT FILEOUT1,RECOUT PRINT THE RECORD GET FILEIN1,RECIN GET THE NEXT RECORD B LOOP GO BACK AND PROCESS