Sorry forgot to provide this. Here is the code 01 command-lin-string pic x(80) value spaces. 01 result pic x comp-x. 01 func pic x comp-x value 35. 01 command-lin. 03 command-lin-length pic x comp-x value zero. MOVE SPACES TO COMMAND-LIN-STRING STRING "PRINT /D:" DELIMITED BY SIZE, PRINTER-NAME2 DELIMITED BY " ", " C:\TEMP\PRINT.FIL" DELIMITED BY SIZE INTO COMMAND-LIN-STRING display command-lin-string upon command-line call x"91" using result, func, command-lin.
↧