September 2002 PL/I, das Spezifikation Abbildet: Diagramm für Valuetypes 2-17 2 wie Example_op1_vtype; wenn vtptr=sysnull()||p_vtargs=null/* etwas falsch! */ /* signalisieren Sie Störungs* /; ... ENDE vt_Example_op1; vt_Example_op2: PROC(vtptr, p_vtargs); dclvtptr-PTRBYVALUE; dclp_vtargs-PTRBYVALUE; dclvtbased(vtptr) wie Example_vtype; dclvt_argsbased(p_vtargs) wie Example_op2_vtype; wenn vtptr=sysnull()||p_vtargs=null/* etwas falsch! */ /* signalisieren Sie Störungs* /; ... ENDE vt_Example_op2; vt_Example_get_val2: PROC(vtptr, p_vtargs); dclvtptr-PTRBYVALUE; dclp_vtargs-PTRBYVALUE; dclvtbased(vtptr) wie Example_vtype; dclvt_argsbased(p_vtargs) wie Example_val2_vtype; wenn vtptr=sysnull()||p_vtargs=null/* etwas falsch! */ /* signalisieren Sie Störungs* /; vt.val2=vt_args; BEENDEN Sie vt_Example_get_val2; vt_Example_get_val2: PROC(vtptr, p_vtargs); dclvtptr-PTRBYVALUE; dclp_vtargs-PTRBYVALUE; dclvtbased(vtptr) wie Example_vtype; dclvt_argsbased(p_vtargs) wie Example_val2_vtype; wenn vtptr=sysnull()||p_vtargs=null/* etwas falsch! */ /* signalisieren Sie Störungs* /; vt_args=vt.val2; BEENDEN Sie vt_Example_get_val2; vt_Example_init: PROC(vtptr, p_vtargs); dclvtptr-PTRBYADDR; dclp_vtargs-PTRBYVALUE; dclvtbased(vtptr)