zOs/REXX/RCM

/* copy rcm begin ******** caDb2 RC/Migrator *************************/
/*--- add an objecct including explodes to quickmigrate input -------*/
rcmQuickAdd: procedure expose m.
parse arg o, aTy, qu, na
    ty = rcmQuickType(aTy)
    if ty == 'DB' then
        call mAdd o, ' ' m.rcm_QuickT2QUICK.ty '=' na
    else
        call mAdd o, ' ' m.rcm_QuickT2QUICK.ty qu na
    call rcmQuickAdaEI o, ty, 'DB'        , 'EXPLODE TABLESPACE'
    call rcmQuickAdaEI o, ty, 'T'         , 'IMPLODE TABLESPACE'
    call rcmQuickAdaEI o, ty, 'DB TS'     , 'EXPLODE TABLE'
    call rcmQuickAdaEI o, ty, 'DB TS T'   , 'EXPLODE INDEX'
    call rcmQuickAdaEI o, ty, 'DB TS T V' , 'EXPLODE VIEW'
    call rcmQuickAdaEI o, ty, 'DB TS T V' , 'EXPLODE SYNONYM'
    call rcmQuickAdaEI o, ty, 'DB TS T V' , 'EXPLODE TRIGGER'
    call rcmQuickAdaEI o, ty, 'DB TS T V' , 'EXPLODE MQTB_T'
    call rcmQuickAdaEI o, ty, 'DB TS T V' , 'EXPLODE MQTB_I'
    call rcmQuickAdaEI o, ty, 'DB TS T V' , 'EXPLODE MQTB_V'
    call rcmQuickAdaEI o, ty, 'DB TS T V' , 'EXPLODE MQTB_S'
    call rcmQuickAdaEI o, ty, 'DB TS T V' , 'EXPLODE MQVW_VW'
    call rcmQuickAdaEI o, ty, 'DB TS T V' , 'EXPLODE MQVW_I'
    call rcmQuickAdaEI o, ty, 'DB TS T V' , 'EXPLODE MQVW_V'
    call rcmQuickAdaEI o, ty, 'DB TS T V' , 'EXPLODE MQVW_S'
    call rcmQuickAdaEI o, ty,         'I' , 'IMPLODE MQVW_VW'
    return
endProcedure rcmQuickAdd

rcmQuickAdaEI: procedure expose m.
parse arg o, ty, types, l1 lR
    if wordPos(ty, types) > 0 then
        call mAdd o, '   ' left(l1, 11) lR
    return
endProcedure rcmQuickAdaEI

rcmQuickType: procedure expose m.
parse upper arg ty
    if symbol('m.rcm_quickA2T.ty') == 'VAR' then
        return m.rcm_quickA2T.ty
    call rcmQuickTyp1 'DATABASE'          , 'DB'
    call rcmQuickTyp1 'INDEX'             , 'I  IX'
    call rcmQuickTyp1 'TABLE'             , 'T  TB'
    call rcmQuickTyp1 'TABLESPACE'        , 'TS'
    call rcmQuickTyp1 'TRIGGER'           , 'TG'
    call rcmQuickTyp1 'VIEW'              , 'V  VW'
    call rcmQuickTyp1 'PROCEDURE PROCEDUR', 'PR SP'
    if symbol('m.rcm_quickA2T.ty') == 'VAR' then
        return m.rcm_quickA2T.ty
    call err 'rcmQuickType type='ty 'not implemented'
endProcedure rcmQuickType

rcmQuickTyp1: procedure expose m.
parse upper arg dTy qTy ., t aa
    m.rcm_quickT2DB2.t = dTy
    if qTy == '' then
        m.rcm_quickT2QUICK.t = dTy
    else
        m.rcm_quickT2QUICK.t = qTy
    m.rcm_quickA2T.dTy = t
    if qTy \== '' then
        m.rcm_quickA2T.qTy = t
    m.rcm_quickA2T.t = t
    do ax=1 to words(aa)
        a = word(aa, ax)
        m.rcm_quickA2T.a = t
        end
    return
endProcedure
/* copy rcm end   ******** caDb2 RC/Migrator *************************/