// JOB VSB012,,8000,8000
// OPTION SYSDUMP
// GBL   PCH=NO
// GBL   C=80
// GBL   LU=30
// OPR '*****VSB012**-D A T A    U T I L I T I E S'
// OPR '*****VSB012A -FUNCTION: UDD (DISC TO DISC COMPARE)'
// DVC 20  // LFD PRNTR
// DVC 50  // VOL SDIVSB  // LBL RPGSAMSORT  // LFD INPUT1
// DVC 50  // VOL SDIVSB  // LBL BALSAMSORT  // LFD INPUT2
// OPTION SYSDUMP
// EXEC DATA
/$
 UDD A=(96,192),B=(96,192),K2,TD
 H1 ****************JOB-----VSB012   -D A T A    U T I L I T I E S
 H2 ****************PROGRAM-VSB012A  -FUNCTION  UDD (DISC COMPARE)
 H3 ****************FILES---BAL-SAM-SORT/RPG-SAM-SORT
/*
// DVC 20  // LFD PRNTR
// DVC 30  // LFD INPUT1
// IF    ('&C' EQ '96')CARD96
// IF    ('&PCH' EQ 'NO')NOPCH
// DVC 40  // LFD OUTPUT1
// OPR '*****VSB012B -FUNCTION: UCC (CARD TO CARD/PRINTER)'
// OPTION SYSDUMP
// EXEC DATA
/$
 UCC DP
 H1 ****************JOB-----VSB012   -D A T A    U T I L I T I E S
 H2 ****************PROGRAM-VSB012B  -FUNCTION  UCC (CARD CARD/PRINT)
 H3 ****************FILES---READER TO PUNCH/PRINTER
/*
// GO NOPCH
//CARD96 NOP
// OPR   '*****96 COLUMN READ FEATURE SELECTED'
// OPR   '*****VSB012B BYPASSED'
//LU     JSET 34
//BS     JSET 192
//NOPCH NOP
// OPR '*****VSB012C -FUNCTION: UCD (CARD TO DISC/PRINTER)'
// DVC 20  // LFD PRNTR
// DVC   &LU   // LFD INPUT1
// DVC 50  // VOL SDIVSB  // LBL DATASAM  // LFD OUTPUT1,,INIT
// OPTION      SUB
// OPTION SYSDUMP
// EXEC DATA
/$
 UCD B=(&C,&BS),DP
 FS 1,80,1
 H1 ****************JOB-----VSB012   -D A T A    U T I L I T I E S
 H2 ****************PROGRAM-VSB012C  -FUNCTION  UCD (CARD DISC/PRINT)
 H3 ****************FILES---READER TO DISC/PRINTER
/*
// OPR '*****VSB012**-END DATA UTILITIES TEST'
/&
