Hallo

eine kruze Frage, vllt. kenne ja jemand von euch die Lösung!

Folgende DS ist gegeben
Code:
     D    dsRcvVar     DS                  qualified
     D  BytesReturn            1      4B 0
     D  #Bytes_Avail           5      8B 0
     D  SplfName               9     18
     D  jobname               19     28
     D  username              29     38
     D  jobnr                 39     44
     D  splfnr                45     48B 0
     D  #Job_SysNam           49     56
     D  #Splf_Dat             57     64
     D  #Reserved             65     65
    D  #Splf_Time            66     71
Nun möchte ich diese DS in Fully Free übernehmen, aber ich scheitere immer an der Binary Declaration.

So sieht es bei mir aus:
Code:
     dcl-ds dsRcvVar qualified;

        jobName char(10) pos(19);

         userName char(10) pos(29);

         jobNr char(6) pos(39);

         splfNr bindec(4:0) pos(45);

  end-ds;
Ich dachte dies wäre richtig, aber im Programm bekomme ich immer nur eine 0 ausgegeben, obwohl da 82 stehen müsste.