// JOB VSB019,,8000,8000
// OPR '****VSB019**-D A T A    U T I L I T I E S'
// OPR '****VSB019**-FUNCTION  UDP (DISC TO PRINTER)'
// OPR '****VSB019**-FILE I R A M NO INDEX'
// OPR '****VSB019**-THIS JOB USE IRAMNOINDEX FILE CREATED IN VSB007'
// DVC 20  // LFD PRNTR
// DVC 50  // VOL SDIVSB  // LBL RPGIRAMNOINDEX  // LFD INPUT1
// OPTION SYSDUMP
// EXEC DATA
/$
  UDP A=(96,192),FF,IR=(C,),MY
 FS 1,80,1
 H1 ****************JOB-----VSB019   -D A T A    U T I L I T I E S
 H2 ****************PROGRAM-VSB019   -FUNCTION UDP (DISC TO PRINTER)
 H3 ****************FILES---DISC (IRAM NO INDEX) TO PRINTER
/*
/&
