Page 2 of 2

Re: how to obtain it

PostPosted: Tue Jan 28, 2014 7:25 pm
by NicC
Fill the remainder of your record with blanks. The dots, as you should know, represent un-displayable characters. If you turn hex on you will see the actual values.

Re: how to obtain it

PostPosted: Tue Jan 28, 2014 7:39 pm
by BillyBoyo
The dots are not dots, they are just how the system shows you non-displayable characters. They are probably binary-zeros.

If you add ,80:X to your BUILD, an X (which is a blank) is placed in column 80. Any intervening colums which have to be created between your data and column 80 will be space-padded.

For you requirement:

//CTRCLCD1 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTOUT  DD SYSOUT=*
//SYSIN    DD *
 OPTION COPY
 INREC BUILD=(1,16,SQZ=(SHIFT=LEFT,
                        LEAD=C'ACTION=LIST,RESOURCE=ADCOM,ADID=',
                        TRAIL=C',STATUS=A;',
                        LENGTH=80))
                                                                 
//SORTIN   DD *
AACADPQ
AACBODQ
AACBOEQ
FGFTUJYHTRR
AACCHEQ
AACDCLQ
VVVVVFGG
AACEFFQ
AACGRFQ
FTJOUR06H00RT


Don't just use it, you need to understand it. So do some research, then tell us what it does.

Re: how to obtain it

PostPosted: Wed Jan 29, 2014 9:49 am
by dgmf
is there an other way to avoid dots... Because the porgramm i use need a DCB with FB et LENGHT=80

Yes..

you can add spaces at last
i.e after last ; you can fill with spaces by giving C' '

Re: how to obtain it

PostPosted: Wed Jan 29, 2014 1:14 pm
by samb01
OK, dgmf.

Thank's.