"code" with black background?
Re: "code" with black background?
by Ed Goodman » Thu Oct 13, 2011 6:58 pm
If the font had more weight, it would be easier to see. Those skinny green letters on the black background have such a high contract that they wash out.
- Ed Goodman
- Posts: 341
- Joined: Thu Feb 24, 2011 12:05 am
- Has thanked: 3 times
- Been thanked: 17 times
Re: "code" with black background?
by NicC » Thu Oct 13, 2011 7:26 pm
Ah - so that is how to do it. But posting the message also shows people that it has been reported so that admin are not overwhelmed!
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
Regards
Nic
- NicC
- Global moderator
- Posts: 3025
- Joined: Sun Jul 04, 2010 12:13 am
- Location: Pushing up the daisies (almost)
- Has thanked: 4 times
- Been thanked: 136 times
Re: "code" with black background?
by admin » Mon Oct 17, 2011 6:38 pm
//STEP01 EXEC PGM=SORT
//SORTJNF1 DD DSN=ZJ00.SXXXX.XXXXX.COPY, //File 1 VB block
// DISP=SHR
//SORTJNF2 DD DSN=ZJ00.XXXX.XXXXX.COPY1, //File 2 VB block
// DISP=SHR
//SORTOUT DD DSN=ZJ00.PMCD516S.SEP29.MATCH, Output in VB
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=DCALNL,
// MGMTCLAS=MCTSO,
// DCB=(SYS1.MODEL,RECFM=VB,LRECL=32756,BLKSIZE=0,BUFNO=99)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(47,10,A) //Key start at 43 (since it VB added plus 4)
JOINKEYS FILE=F2,FIELDS=(7,10,A) //Key start at 3 (since it VB added plus 4)
REFORMAT FIELDS=(F2:1,4,32756) // Need matching records from File 2
SORT FIELDS=COPY
/*
//STEP01 EXEC PGM=SORT
//SORTJNF1 DD DSN=ZJ00.SXXXX.XXXXX.COPY, //File 1 VB block
// DISP=SHR
//SORTJNF2 DD DSN=ZJ00.XXXX.XXXXX.COPY1, //File 2 VB block
// DISP=SHR
//SORTOUT DD DSN=ZJ00.PMCD516S.SEP29.MATCH, Output in VB
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=DCALNL,
// MGMTCLAS=MCTSO,
// DCB=(SYS1.MODEL,RECFM=VB,LRECL=32756,BLKSIZE=0,BUFNO=99)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(47,10,A) //Key start at 43 (since it VB added plus 4)
JOINKEYS FILE=F2,FIELDS=(7,10,A) //Key start at 3 (since it VB added plus 4)
REFORMAT FIELDS=(F2:1,4,32756) // Need matching records from File 2
SORT FIELDS=COPY
/*
//STEP01 EXEC PGM=SORT
//SORTJNF1 DD DSN=ZJ00.SXXXX.XXXXX.COPY, //File 1 VB block
// DISP=SHR
//SORTJNF2 DD DSN=ZJ00.XXXX.XXXXX.COPY1, //File 2 VB block
// DISP=SHR
//SORTOUT DD DSN=ZJ00.PMCD516S.SEP29.MATCH, Output in VB
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=DCALNL,
// MGMTCLAS=MCTSO,
// DCB=(SYS1.MODEL,RECFM=VB,LRECL=32756,BLKSIZE=0,BUFNO=99)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(47,10,A) //Key start at 43 (since it VB added plus 4)
JOINKEYS FILE=F2,FIELDS=(7,10,A) //Key start at 3 (since it VB added plus 4)
REFORMAT FIELDS=(F2:1,4,32756) // Need matching records from File 2
SORT FIELDS=COPY
/*
//STEP01 EXEC PGM=SORT
//SORTJNF1 DD DSN=ZJ00.SXXXX.XXXXX.COPY, //File 1 VB block
// DISP=SHR
//SORTJNF2 DD DSN=ZJ00.XXXX.XXXXX.COPY1, //File 2 VB block
// DISP=SHR
//SORTOUT DD DSN=ZJ00.PMCD516S.SEP29.MATCH, Output in VB
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=DCALNL,
// MGMTCLAS=MCTSO,
// DCB=(SYS1.MODEL,RECFM=VB,LRECL=32756,BLKSIZE=0,BUFNO=99)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(47,10,A) //Key start at 43 (since it VB added plus 4)
JOINKEYS FILE=F2,FIELDS=(7,10,A) //Key start at 3 (since it VB added plus 4)
REFORMAT FIELDS=(F2:1,4,32756) // Need matching records from File 2
SORT FIELDS=COPY
/*
//SORTJNF1 DD DSN=ZJ00.SXXXX.XXXXX.COPY, //File 1 VB block
// DISP=SHR
//SORTJNF2 DD DSN=ZJ00.XXXX.XXXXX.COPY1, //File 2 VB block
// DISP=SHR
//SORTOUT DD DSN=ZJ00.PMCD516S.SEP29.MATCH, Output in VB
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=DCALNL,
// MGMTCLAS=MCTSO,
// DCB=(SYS1.MODEL,RECFM=VB,LRECL=32756,BLKSIZE=0,BUFNO=99)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(47,10,A) //Key start at 43 (since it VB added plus 4)
JOINKEYS FILE=F2,FIELDS=(7,10,A) //Key start at 3 (since it VB added plus 4)
REFORMAT FIELDS=(F2:1,4,32756) // Need matching records from File 2
SORT FIELDS=COPY
/*
//STEP01 EXEC PGM=SORT
//SORTJNF1 DD DSN=ZJ00.SXXXX.XXXXX.COPY, //File 1 VB block
// DISP=SHR
//SORTJNF2 DD DSN=ZJ00.XXXX.XXXXX.COPY1, //File 2 VB block
// DISP=SHR
//SORTOUT DD DSN=ZJ00.PMCD516S.SEP29.MATCH, Output in VB
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=DCALNL,
// MGMTCLAS=MCTSO,
// DCB=(SYS1.MODEL,RECFM=VB,LRECL=32756,BLKSIZE=0,BUFNO=99)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(47,10,A) //Key start at 43 (since it VB added plus 4)
JOINKEYS FILE=F2,FIELDS=(7,10,A) //Key start at 3 (since it VB added plus 4)
REFORMAT FIELDS=(F2:1,4,32756) // Need matching records from File 2
SORT FIELDS=COPY
/*
//STEP01 EXEC PGM=SORT
//SORTJNF1 DD DSN=ZJ00.SXXXX.XXXXX.COPY, //File 1 VB block
// DISP=SHR
//SORTJNF2 DD DSN=ZJ00.XXXX.XXXXX.COPY1, //File 2 VB block
// DISP=SHR
//SORTOUT DD DSN=ZJ00.PMCD516S.SEP29.MATCH, Output in VB
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=DCALNL,
// MGMTCLAS=MCTSO,
// DCB=(SYS1.MODEL,RECFM=VB,LRECL=32756,BLKSIZE=0,BUFNO=99)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(47,10,A) //Key start at 43 (since it VB added plus 4)
JOINKEYS FILE=F2,FIELDS=(7,10,A) //Key start at 3 (since it VB added plus 4)
REFORMAT FIELDS=(F2:1,4,32756) // Need matching records from File 2
SORT FIELDS=COPY
/*
//STEP01 EXEC PGM=SORT
//SORTJNF1 DD DSN=ZJ00.SXXXX.XXXXX.COPY, //File 1 VB block
// DISP=SHR
//SORTJNF2 DD DSN=ZJ00.XXXX.XXXXX.COPY1, //File 2 VB block
// DISP=SHR
//SORTOUT DD DSN=ZJ00.PMCD516S.SEP29.MATCH, Output in VB
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=DCALNL,
// MGMTCLAS=MCTSO,
// DCB=(SYS1.MODEL,RECFM=VB,LRECL=32756,BLKSIZE=0,BUFNO=99)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(47,10,A) //Key start at 43 (since it VB added plus 4)
JOINKEYS FILE=F2,FIELDS=(7,10,A) //Key start at 3 (since it VB added plus 4)
REFORMAT FIELDS=(F2:1,4,32756) // Need matching records from File 2
SORT FIELDS=COPY
/*
- admin
- Site Admin
- Posts: 102
- Joined: Wed May 23, 2007 5:49 pm
- Has thanked: 14 times
- Been thanked: 5 times
Re: "code" with black background?
by BillyBoyo » Tue Oct 18, 2011 3:59 am
OK... Is it OK to say I preferred it the way it was? You certainly got "more mainframey" spot on, but...
- BillyBoyo
- Global moderator
- Posts: 3804
- Joined: Tue Jan 25, 2011 12:02 am
- Has thanked: 22 times
- Been thanked: 265 times
Re: "code" with black background?
by Frank Yaeger » Tue Oct 18, 2011 4:38 am
I preferred it the way it was too. The red is difficult to read for my "old" eyes.
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
-
Frank Yaeger - Global moderator
- Posts: 1079
- Joined: Sat Jun 09, 2007 8:44 pm
- Has thanked: 0 time
- Been thanked: 15 times
Re: "code" with black background?
by Frank Yaeger » Tue Oct 18, 2011 10:22 pm
The cyan is much better. Thanks.
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
-
Frank Yaeger - Global moderator
- Posts: 1079
- Joined: Sat Jun 09, 2007 8:44 pm
- Has thanked: 0 time
- Been thanked: 15 times