*S****DF 0000A 44 1#APPL-TYP-VAL
*S****DRR 0000 R1#APPL-TYP-VAL
*S****DFR 0000A 8 2#APPLID
*S****DFR 0000A 20 2#TYPE
*S****DFR 0000A 16 2#VALUE
The conversion process has to find a solution for how to
Convert the data redefines…
One open source solution from an established
IT conversion company is given below. Please
note that this solution requires a total approach
defining variable types as classes etc. This
means a large amount of substructure code
and home-keeping.
// 0000A 44 1#APPL-TYP-VAL
public final AValMem _applTypVal=newAValMem(44);
// 0000 R1#APPL-TYP-VAL
public static class DataRedefine_1 extends AValMem {
// 0000A 8 2#APPLID
public final AValMem _applid;
// 0000A 20 2#TYPE
public final AValMem _type;
// 0000A 16 2#VALUE
public final AValMem _value;
public DataRedefine_1() {
this(new AValMem(44),0);
}
public DataRedefine_1(MemoryBlock PARENT,int OFFSET) {
this(PARENT,OFFSET,true);
}
public DataRedefine_1(MemoryBlock PARENT,int OFFSET,boolean MUST_INITIALIZE) {
super(PARENT,OFFSET,44);
_applid=newAValMem(this,0,8);
_type=newAValMem(this,8,20);
_value=newAValMem(this,28,16);
}
}
public final DataRedefine_1 redefine_1=new DataRedefine_1(_applTypVal,0);