* User command
FORM user_comm USING r_ucomm     LIKE sy-ucomm
                     ls_selfield TYPE slis_selfield.

  DATA: params LIKE pri_params,
        valid.

  IF r_ucomm EQ '&PRINT'.

* print parameter declarations
    DATA: val,
          pripar TYPE pri_params,
          arcpar TYPE arc_params,
          lay   TYPE pri_params-paart,
          lines TYPE pri_params-linct,
          rows  TYPE pri_params-linsz,
          prsap TYPE pri_params-prsap,
          prunx TYPE pri_params-prunx,
          prbig TYPE pri_params-prbig.

    lay = 'Z_90_120'.
    prsap = ''.
    prunx = ''.
    prbig = ''.
    lines = 90.
    rows  = 120.

    CALL FUNCTION 'GET_PRINT_PARAMETERS'
         EXPORTING
              in_archive_parameters  = arcpar
              in_parameters          = pripar
              layout                 = lay
              sap_cover_page         = prsap
              host_cover_page        = prunx
              line_count             = lines
              line_size              = rows
              cover_page             = prbig
              no_dialog              = 'X'
         IMPORTING
              out_archive_parameters = arcpar
              out_parameters         = pripar
              valid                  = val
         EXCEPTIONS
              archive_info_not_found = 1
              invalid_print_params   = 2
              invalid_archive_params = 3
              OTHERS                 = 4.

    SUBMIT z_print_test TO SAP-SPOOL
      SPOOL PARAMETERS pripar
      ARCHIVE PARAMETERS arcpar
      WITHOUT SPOOL DYNPRO
      AND RETURN.
  ENDIF.

ENDFORM.