PROC MIKES_LIST_TO_CBL () IS ( LITERAL LISTNAME, RESPONSE (RESPONSE) RESP := RESULT) BEGIN STRING PHASE, COBOLFILE INT FLAG WHENEVER FLAG NE 0 THEN IF FLAG > 0 THEN SMSG("ERROR WHEN " + PHASE) RESP := FLAG RETURN ELSE SMSG("WARNINGS WHEN " + PHASE) SRSMSG(FLAG) FLAG := 0 FI FI PHASE := "CREATING TEMP EDIT FILE" CRF(LNA = LIST2CBLEDIT, RES = FLAG) PHASE := "WRITING TEMP EDIT FILE" WRF(NAM = *LIST2CBLEDIT, REC = "PC/IDENTIFICATION DIVISION/"& "-C/D A T A I T /"& " ((C/JOB :/"& " P+1,(C/S O U R C E/"& " P+1"& " 'H)"& " 'P.12,H,T.73,P.E,G))"& "PEE", RES = FLAG) COBOLFILE := LISTNAME WHENEVER COBOLFILE INCLUDES "." THEN COBOLFILE := COBOLFILE AFTER "." FI COBOLFILE := COBOLFILE + "CBL" PHASE := "EDITING " + LISTNAME + " TO " + COBOLFILE ED(OLD = VAL LISTNAME, NEW = VAL COBOLFILE, EDI = *LIST2CBLEDIT, TRU = Y, RES = FLAG) END