Using AR/CTL common calls - changing PL/I application programs

DCL ARCCALL OPTIONS(ASM INTER);
DCL PARMCNT                           FIXED BINARY (31) STATIC
                                      INIT(19);
DCL FUNCTION                          CHAR (4);
DCL STATUSCD                          CHAR (2)
                                      INIT ('  ');
DCL FORCEOPT                          CHAR (3)
                                      INIT ('YES');
DCL IOAREALN                          FIXED BINARY (31) STATIC
                                      INIT(12).
DCL IOAREA                            CHAR (12)
                                      INIT ('            ');
DCL 1 AREA0BEG.
DCL 1 AREA0END.
DCL 1 AREA1BEG.
DCL 1 AREA1END.
DCL 1 AREA2BEG.
DCL 1 AREA2END.
DCL 1 AREA3BEG.
DCL 1 AREA3END.
DCL 1 AREA4BEG.
DCL 1 AREA4END.
DCL 1 AREA5BEG.
DCL 1 AREA5END.
DCL 1 AREA6BEG.
DCL 1 AREA6END.
FUNCTION = 'XRST';

CALL PLITARC (PARMCNT,FUNCTION,STATUSCD,FORCEOPT,IOAREALN,IOAREA,
              AREA0BEG,AREA0END,AREA1BEG,AREA1END,AREA2BEG,AREA2END,
              AREA3BEG,AREA3END,AREA4BEG,AREA4END,AREA5BEG,AREA5END,
              AREA6BEG,AREA6END);
IF STATUSCD = '  '
    THEN
        DO;
        END;
    ELSE
        DO;
        END;