* $$ JOB JNM=VSEPROC,DISP=D,CLASS=0                                     00000001
* $$ LST DISP=D,CLASS=P                                                 00000002
// JOB VSEPROC         PROCEDURE TO INVOKE VSEDIT                       00000003
// OPTION LOG                                                           00000004
// EXEC LIBR,PARM='MSHP;ACC S=IJSYSRS.SYSLIB'                           00000005
   CATAL VSEDIT.PROC    REP= YES   DATA=YES                             00000006
*                                                                       00000007
*                   VSEDIT - VSE full-screen editor                     00000008
*                                                                       00000009
/* ALLOC BG=2M            <=== OPTIONAL                                 00000010
// SETPFIX LIMIT=64K                                                    00000011
// EXEC PROC=DTRICCF      ASSGN FOR DTSFILE                             00000012
// LIBDEF PHASE,SEARCH=PRD2.BTAM                                        00000013
// OPTION NOSYSDUMP                                                     00000014
// ASSGN SYS000,SYSLOG    <=== CHANGE TO 3270 non-SNA (OPTIONAL)        00000015
// EXEC DTRIATTN,PARM='OPERATE DISC,CMD=TIME'                           00000016
// ASSGN SYS005,SYS000                                                  00000017
// EXEC VSEDIT,SIZE=(VSEDIT,32K)                                        00000018
// RESET SYS005                                                         00000019
/*                                                                      00000020
/+                                                                      00000021
/*                                                                      00000022
/&                                                                      00000023
* $$ EOJ                                                                00000024
