*COMDECK INPARUT
      COMMON INPARUT; 
      BEGIN 
        ARRAY INPRT1 P(1);
          BEGIN 
          ITEM INPDM1  C(0,0,07)=["INPARUT"];# MARK COMMON IN DUMP     #
          ITEM INPDM2  U(0,42,18)=[O"777777"];
          END 
        ARRAY INPART2 [1:3] P(1); 
          BEGIN 
          ITEM INPNIN  C(0,6,03)=["000",,] ;   # NIN VALUE             #
          ITEM INPSTP B(0,0,1)=[FALSE,FALSE,];#STOP LOCAL AT INIT/REPRV#
          ITEM INPPRU U(0,54,6) = [30,30,30]; # NO OF BUFFERS PER SIZE #
          END 
      END 
