$$ ----------------------------------------------------------------------------*
$$       1         2         3         4         5         6         7         8
$$345678901234567890123456789012345678901234567890123456789012345678901234567890
$$
$$ DEKLARATIONS - TEIL
$$
$$ ----------------------------------------------------------------------------*
$$
    GRIPSW/ DECLRV
$$ ----------------------------------------------------------------------------*
$$ Local variables:
$$ ----------------------------------------------------------------------------

    NUMBER/ sts, resp
    STRING/ prtNam(132)
    STRING/ dparts(4,32) 
    STRING/ msgErr(132)             $$ Fehlermeldung


    STRING/ coMast(13)
    DATA/ coMast,'master'

$$ ----------------------------------------------------------------------------*
$$
$$--START OF EXECUTABE CODE--
$$
$$ ----------------------------------------------------------------------------*

    IFTHEN/ &ACTPRT == 2
      IFTHEN/ &UGMGR <> &YES
      	MESSG/ 'Funktion nicht Nativ nutzbar!'
      	JUMP/ fini:
      ENDIF
    ENDIF

   ID:
      TEXT/ 'partID:',dparts(1),resp
      JUMP/ fini:, fini:,fini:,,resp
      
      TEXT/ 'partREV:',dparts(2),resp  
      JUMP/ id:, fini:,fini:,,resp
      dparts(3) = coMast
      dparts(4) = ' '

      msgErr = 'codieren fehlgeschlagen'
      prtNam = UGMGRE/ PRTNUM,dparts(1), $
                       PRTREV,dparts(2), $
                       PRTTYP,dparts(3), $
                       PRTFIL,dparts(4), IFERR, error:

      sts = PARTST/ prtNam
      IFTHEN/ sts == 0
        msgErr = 'Kann '+dparts(1)+'/'+dparts(2)+' nicht öffnen'
        FETCH/ PART, prtNam, IFERR, error:  $$ öffnen wenn nicht schon geöffnet
      ELSE
        msgErr = 'Kann zu '+dparts(1)+'/'+dparts(2)+' nicht Wechseln'
        PARTOP/ SET,DSPLAY, prtNam, IFERR, error:
        PARTOP/ SET,WORK, prtNam, IFERR, error:
      ENDIF

     lbMod:
      IF/ &DSTATE <> 1 , &DSTATE = 1
      JUMP/ fini:


  fini:
    $$ ------------------------------------------------------------------------*

    HALT


   error:
     MESSG/ msgErr
     JUMP/ fini: