■  Training1の回答例

//MYJOB		JOB	CLASS=A
//STEP0		EXEC	PGM=IEHPROGM	←このステップがないと何度実行しても同じ結果にならない
//SYSPRINT		DD	SYSOUT=*
//DD1		DD	UNIT=SYSDA,VOL=SER=MYVOL,DISP=SHR
//SYSIN		DD	*
	SCRATCH VOL=SYSDA=MYVOL,DSNAME=TESTFIL1
	SCRATCH VOL=SYSDA=MYVOL,DSNAME=TESTFIL2
/*
//STEP1		EXEC	PGM=IEFBR14
//DD1		DD	DSN=TESTFIL1,
//			UNIT=SYSDA,VOL=SER=MYVOL,DISP=(NEW,CATLG),
//			SPACE=(TRK,(1,1),RLSE),
//			DCB=(RECFM=FB,LRECL=80,BLKSIZE=24000)
//DD2		DD	DSN=TESTFIL2,
//			UNIT=SYSDA,VOL=SER=MYVOL,DISP=(NEW,KEEP),
//			SPACE=(TRK,(1,1),RLSE),
//			DCB=(RECFM=VB,LRECL=4092,BLKSIZE=4096)
/*
//STEP2		EXEC	PGM=ICEGENER
//SYSPRINT		DD	SYSOUT=*
//SYSUT1		DD	*
1234567890
ABCDEFG
//SSUT2		DD	DSN=TESTFIL1,DISP=MOD	←カタログファイルに追加する時はMOD
//SYSIN		DD	DUMMY
/*
//STEP3		EXEC	PGM=SORT
//SYSOUT		DD	SYSOUT=*
//SORTIN		DD	*
1234567890
ABCDEFG
//SORTOUT		DD	DSN=TESTFIL2,
//			UNIT=SYSDA,VOL=SER=MYVOL,DISP=(MOD,KEEP),	←アンカタログファイルに追加する時はMOD,KEEP
//			DCB=(RECFM=VB,LRECL=4092,BLKSIZE=4096)
//SORTWK01		DD	UNIT=SYSDA,SPACE=(CYL,(10,10))
//SORTWK02		DD	UNIT=SYSDA,SPACE=(CYL,(10,10))
//SORTWK03		DD	UNIT=SYSDA,SPACE=(CYL,(10,10))
//SYSIN		DD	*
OPTION  COPY
OUTFIL  FNAMES=SORTOUT,FTOV				←FTOVがないと可変長にできない
/*
//STEP4		EXEC	PGM=SORT
//SYSOUT		DD	SYSOUT=*
//SORTIN		DD	DSN=TESTFIL1,DISP=SHR
//SORTOUT		DD	DSN=&&TEST1,DISP=(,PASS)	←PASSにしないと次のステップで使えない
//			UNIT=SYSDA,VOL=SER=MYVOL,SPACE=(TRK,(1,1),RLSE),
//			DCB=(RECFM=FB,LRECL=80,BLKSIZE=24000)
//SORTWK01		DD	UNIT=SYSDA,SPACE=(CYL,(10,10))
//SORTWK02		DD	UNIT=SYSDA,SPACE=(CYL,(10,10))
//SORTWK03		DD	UNIT=SYSDA,SPACE=(CYL,(10,10))
//SYSIN		DD	*
SORT  FIELDS=(1,4,BI,A)
/*
//STEP5		EXEC	PGM=SORT
//SYSOUT		DD	SYSOUT=*
//SORTIN		DD	DSN=TESTFIL2,DISP=SHR
//SORTOUT		DD	DSN=&&TEST2,DISP=(,PASS)	←PASSにしないと次のステップで使えない
//			UNIT=SYSDA,VOL=SER=MYVOL,SPACE=(TRK,(1,1),RLSE),
//			DCB=(RECFM=VB,LRECL=4092,BLKSIZE=4096)
//SORTWK01		DD	UNIT=SYSDA,SPACE=(CYL,(10,10))
//SORTWK02		DD	UNIT=SYSDA,SPACE=(CYL,(10,10))
//SORTWK03		DD	UNIT=SYSDA,SPACE=(CYL,(10,10))
//SYSIN		DD	*
SORT  FIELDS=(1,4,BI,A)
/*
//STEP6		EXEC	PGM=ISRSUPC,
//			PARM=(CHNGL,BYTECMP,'','')
//OLDDD		DD	DSN=&&TEST1,DISP=(OLD,DELETE)
//NEWDD		DD	DSN=&&TEST2,DISP=(OLD,DELETE)
//OUTDD		DD	SYSOUT=*
//SYSIN		DD	*
PROCESS  LITNM=ISRLENP  DTBLNM=ISR3278K
/*
//

STEP7の答え
VBファイルの場合、ファイルの先頭にレングス(2桁)＋リザーブ(2桁)がついているので、 １桁〜４桁をバイナリーでソートしてもソートの結果は変わりません。
一方、FBファイルの場合は、ソートされてABCDEFGの行が１件目になるので、FBとVBをコンペアするとアンマッチになります。