program uinffs(output);
const uinfstart=2359296;
type
      uinff=packed record
            user:packed array[0..6]of char;
            jobdocfile:packed array[0..31]of char;
            mark,fsys,procno,isuff,reason,batchid,
            sessiclim,scidensad,scidens,startcnsl,aiostat,sctdate,sync1dest,sync2dest,
            asyncdest,aacctrec,aicrevs:integer;
            jobname:packed array[0..15]of char;
            basefile:packed array[0..31]of char;
            previc,
            itaddr0,itaddr1,itaddr2,itaddr3,itaddr4,streamid,dident,scarcity,
            preemptat:integer;
            spoolrfile:packed array[0..11]of char;
            funds,sesslen,priority,decks,drives,partclose:integer;
            tmodes:packed array[1..20]of char{DUMMY FILLER!!!};
            pslot:integer;
            itaddr:packed array[0..63]of char;
            fclosing:packed array[0..3]of char;
            clofes,
            outputlimit,dapsecs:integer;
            dapinstrs:packed array[1..2]of integer{LONG INTEGER!!};
            out:integer;
            outname:packed array[0..15]of char;
            uend:integer
            end;
      uinf_p_t=record
               dummyp:integer;
               case boolean of
                  true:(paddr:integer);
                  false:(pval:^uinff)
               end;
var
      uinf_ptr:uinf_p_t;
      uinf:uinff;
      user:packed array[0..6]of char;
      i:integer;

begin
      uinf_ptr.paddr:=uinfstart;
      uinf:=uinf_ptr.pval^;
      user:=uinf.user;
      user[0]:=' ';
      with uinf do
      writeln('User:',user,'  Fsys: ',fsys:1,' Procno: ',procno:1);
end.