PGM        PARM(&PGM)
             DCL        VAR(&PGM) TYPE(*CHAR) LEN(10)
             CALL       PGM(LSPGMVV) PARM(&PGM)
             CALL       PGM(COMMAND)
             CALL       PGM(LSVALGAARD/LSCLEAN) PARM(&PGM)
             CRTDUPOBJ  OBJ(&PGM) FROMLIB(LSVALGAARD) OBJTYPE(*PGM) +
                          NEWOBJ(XX)
             CALL       PGM(LSVALGAARD/LSCLEAN) PARM(XX)
             SAVOBJ     OBJ(XX) LIB(LSVALGAARD) DEV(*SAVF) +
                          OBJTYPE(*PGM) SAVF(R)
             DLTPGM     PGM(LSVALGAARD/XX)
             RSTOBJ     OBJ(XX) SAVLIB(LSVALGAARD) DEV(*SAVF) SAVF(R)
             DLTPGM     PGM(&PGM)
             CRTDUPOBJ  OBJ(XX) FROMLIB(LSVALGAARD) OBJTYPE(*PGM) +
                          NEWOBJ(&PGM)
             DLTPGM     PGM(XX)
             CALL       PGM(LSVALGAARD/LSEXPLR) PARM(&PGM)
          ENDPGM