tighten up on user mistakes, and educate them

Flush with my last success...
ZOSA1679 2/21/2019 Copy File Enhancement- Introduced new field  
         PAG     'SUBMIT MULTI MODE' to allow user for single   
                  and multi submit from CF panel 

...I have a couple more enhancements that I've just implemented in my site...

I've added checking for the user failing to change PNODE or SNODE values, and trying to send the same dataset to itself!
Also, same site transfer - suggest that user uses the more efficient IBM utilities for the copy.  

I'll try to upload the complete members to allow for easy comparison. Failing that you are welcome to contact me.

** New Feature **
OS390.SDGAPENU(DGA@CF01)
OS390.SDGAPENU(DMI@CF01) (alias)
000107 added...               SAME Site Transfer:$Z+ (W, E)
000134 &VARS = '&VARS V@SSXFER '
000154   &V@SSXFER = 'W'                               /* SAME SITE: WARN */ 
000246     &V@NEWN   = &ZUSER    /*  RESET NEW PROCESS NAME     IUCF003I    */
000249     &V@SSXFER = 'W'       /*  SAME SITE WARN/ERR MSG     IUCF107I    */

000301     IF (&V@SN£NM = &V@RN£NM)         /* IF SAME: USE BETTER UTILITY */
000302       VER(&V@SSXFER,NONBLANK,LIST,E,W,X)
000303       IF (&V@SSXFER = 'W')
000304         &V@SSXFER = 'X'           /* IF WARN, THEN ALLOW NEXT TIME THRU */
000305         .MSG = IUCF107I
000306       IF (&V@SSXFER = 'E')
000307         .MSG = IUCF107I           /* IF ERR, KEEP ERROR  */

OS390.SDGAPENU(DGA@CF20)
OS390.SDGAPENU(DMI@CF20) (alias)
000102      IF (&V@SDSN# = &V@SDSN)   /* CHECK FOR SAME DSN */
000103        IF (&V@SN£NM = &V@RN£NM)  /* CHECK FOR SAME NODE */
000104           .MSG = IUCF108I          /* CANNOT SEND TO ITSELF */

OS390.SDGAMENU(DGAMCF10)
OS390.SDGAMENU(IUCF10) (alias)
IUCF107I '                       ' .ALARM=YES .WINDOW=LRESP
'PNODE and SNODE are the same.                                    ' +
'                                                                 ' +
'Same site transfers will be deprecated in a future update! ' +
'If you need to copy datasets, consider using the default IBM ' +
'utilities for this purpose - namely IEBGENER, IEBCOPY, or IDCAMS, ' +
'either interactively via ISPF option 3.3 (for QSAM/PDS), or a ' +
'batch job (for QSAM/PDS/VSAM). You may continue, for now.'

IUCF108I '                   ' .ALARM=YES .WINDOW=LRESP
'You have specified the same PNODE and SNODE for a transfer. ' +
'You have ALSO specified the same DSN for both SOURCE and ' +
'DESTINATION - you cannot copy a file to itself!'