// JOB VSB020,,8000,8000
// OPR '****VSB020**-D A T A    U T I L I T I E S'
// OPR '****VSB020**-FUNCTION  UDP (DISC TO PRINTER)'
// OPR '****VSB020**-F I L E    I R A M    I N D E X'
// OPR '****VSB020**-THIS JOB USE IRAMINDEX FILE CREATED IN VSB008'
// DVC 20  // LFD PRNTR
// DVC 50  // VOL SDIVSB  // LBL RPGIRAMINDEX    // LFD INPUT1
// OPTION SYSDUMP
// EXEC DATA
/$
  UDP A=(96,192),FF,IR=(I,1,),MY,V=(0004),W=(0076)
 FS 1,80,1
 H1 ****************JOB-----VSB020   -D A T A    U T I L I T I E S
 H2 ****************PROGRAM-VSB020   -FUNCTION UDP (DISC TO PRINTER)
 H3 ****************FILES---DISC (IRAM INDEX) TO PRINTER
/*
/&
