Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Char to Binary

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
ojdiaz

New User


Joined: 19 Nov 2008
Posts: 90
Location: Spain

PostPosted: Thu Jul 15, 2010 3:05 pm    Post subject: Char to Binary
Reply with quote

Hi.

I have a requirement in which i need to squeeze the first 9 char bytes from a string into a 4 bytes binary field. I'm not sure if this can be done, but i was asked to look into it. I was wondering if i can acomplish this trhough a SORT step, since i'm sure that i can do it with a COBOL program. Basically, what it needs to be accomplished is to move a HOST username plus a control digit (9 bytes) into a 4 bytes length binary field.

Since the name comes in a string of 20 chars, i know the Username comes after a blank, so I used the parse function to extract it, but the doubt is, can I somehow convert it to number and then that number convert it to binary? Is there another way? I was thinking on using ALTSEQ, but i can't seem to find a way

So far, i extracted the name, but how could i convert it?

Code:
//SORT06   EXEC PGM=SORT                                 
//SORTIN   DD *                                         
   PEPETO PEPITO PEPA PEPOTA                             
         XE19961                                         
     SADÑ238SD  SD                                       
//SORTOUT  DD DSN=ABTKEOA.INPXD05X.XOAJ181G.OJDH,       
//            DISP=(NEW,CATLG,DELETE),                   
//            SPACE=(CYL,(150,50),RLSE),                 
//            DCB=(RECFM=FB,BLKSIZE=0)                   
//SYSPRINT DD SYSOUT=*                                   
//SYSOUT   DD SYSOUT=*                                   
//SYSIN    DD *                                         
  INREC PARSE=(%00=(FIXLEN=9,                           
               STARTAT=NONBLANK,ENDBEFR=BLANKS)),       
        BUILD=(1:%00,1X,%00,HEX,1X)
  SORT FIELDS=COPY                                       
  OPTION SOLRF                                           


BTW, I'm working in a shop with this DFSORT Release:

Code:
ICE201I E RECORD TYPE IS F


Could you give me any direction or ideas about it?

Best Regards: Oliver
Back to top
View user's profile Send private message

dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu Jul 15, 2010 3:33 pm    Post subject:
Reply with quote

Oliver,

this sounds suspiciously like a requirement for a soundex algorithm.

is there any intent to convert this new 4 byte binary back to the 20 char name and 9 digit number?

how would/will the new 4 byte binary number be used?

so far you have provided us with the following info:
  • 20 char name field
  • 9 digit number

a little more info, and possibly someone can provide a direction/solution.
do not miss-understand me, I am in awe (at times) at what the DFSORT Team can accomplish,
but I think what you have described so far will be quite a test of their abilities.
Back to top
View user's profile Send private message
ojdiaz

New User


Joined: 19 Nov 2008
Posts: 90
Location: Spain

PostPosted: Thu Jul 15, 2010 5:13 pm    Post subject:
Reply with quote

[quote="dbzTHEdinosauer"]
Oliver,

this sounds suspiciously like a requirement for a soundex algorithm.
[\quote]

Hello dbzTHEdinosauer:

Thanks for your comments:

Actually it is not a Soundex Algorithm (thanks to a Wiki i learnt about it. That can be done? wow!)

dbzTHEdinosauer wrote:

is there any intent to convert this new 4 byte binary back to the 20 char name and 9 digit number?


No. I just basically need to squeeze a 9 bytes char value into that 4 bytes binary field, basically becouse another process expects the data in that format. I though about converting the char into numbers so I don't loose information in the process.

dbzTHEdinosauer wrote:
how would/will the new 4 byte binary number be used?


The field will be passed, among others that I already have without much problem, to a process that uses it for sorting and summarizations among other operations. Basically, In certain conditions, I need to move this 9 bytes char field to the receiving 4 bytes field, but other times, I move another numeric fields that are correct for the format. I'm in the middle of a plataform migration process, and some data dictionaries were not updated, and others were changed without analyzing the impact of the change, and this new 20 bytes char field was changed without realizing the original PIC 9(9) comp field was used where i need to put it. Anyway,

dbzTHEdinosauer wrote:

so far you have provided us with the following info:

  • 20 char name field
  • 9 digit number


a little more info, and possibly someone can provide a direction/solution.
do not miss-understand me, I am in awe (at times) at what the DFSORT Team can accomplish,
but I think what you have described so far will be quite a test of their abilities.


I think i quite got what you meant. And I usually come to the forum when I can't find an answer by myself, and I know the crew of this forums is amazing when it comes to sort and using it in ways that I simply wouldn't have though about it.

The info I provided is just for the need i have. I have the rest of the job ready, but all I need so far is just to convert that field and then move it. The converting process is what I need.

Thanks anyway for your concer icon_biggrin.gif
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Thu Jul 15, 2010 7:54 pm    Post subject:
Reply with quote

Back in the 'olden' days, when memory and disk were expensive and limited, we would convert the customer name and addresses to a more compact form by dropping the first two bits of each character and squeezing the six remaining bits of each character together.
The best we could do was to reduce every eight characters to six.
You could get another bit out of it if you replaced each letter with a unique 0 - 31 bit pattern, but you can not get a 26 character alphabet to fit into the 16 bit possibilities you think you need.
Back to top
View user's profile Send private message
ojdiaz

New User


Joined: 19 Nov 2008
Posts: 90
Location: Spain

PostPosted: Thu Jul 15, 2010 9:04 pm    Post subject:
Reply with quote

CICS Guy wrote:
Back in the 'olden' days, when memory and disk were expensive and limited, we would convert the customer name and addresses to a more compact form by dropping the first two bits of each character and squeezing the six remaining bits of each character together.
The best we could do was to reduce every eight characters to six.
You could get another bit out of it if you replaced each letter with a unique 0 - 31 bit pattern, but you can not get a 26 character alphabet to fit into the 16 bit possibilities you think you need.


Thanks CICS Guy

This request reminds me of my old college days. It looks like a Test Question. Now I realize that this might not be possible since,, since I only have 16 bits as youremembered me. It is very little space for 26 letter alphabet and 10 numbers, so I guess I might neeed to think on a different approach... sighs
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Jul 15, 2010 9:32 pm    Post subject:
Reply with quote

Hello,

Quote:
basically becouse another process expects the data in that format
I'm still not clear on what the "other process" will do with this value. . . icon_confused.gif

If all that is needed is a "number" could the calling code simply increment a count and pass the number to the "other process"?
Back to top
View user's profile Send private message
ojdiaz

New User


Joined: 19 Nov 2008
Posts: 90
Location: Spain

PostPosted: Fri Jul 16, 2010 2:42 pm    Post subject:
Reply with quote

Sadly, an incremental number is not an option.

That other process is almost a Black box to me. All i know is that they expect an unique valor according to the user code in that field, and it must be on that format. I can't see the source code since I don't have the security priviledges to check the code, All i was asked to do was to leave an interface file and this process will handle the rest. That other process (i was told it was from the Data Secutrity Department) is stored in some protected libraries and I can't even see it trhough changeman or it's libraries. Anyway, I was told that they do some totals based on that field among others, so perhaps I could do a sum fields=none for the 9 bytes char Username file, assign It an unique ID as Dick suggest, and put it on the file. I'll Ask is this could be a valid solution if they don't validate it with any master file and if it works, I'll look into an solution for it

Thanks a lot for your support guys

Best regards

Oliver
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Fri Jul 16, 2010 3:07 pm    Post subject:
Reply with quote

if the Data Security boys are unwilling to take you 9 char field and convert it themselves,

you might want to explain to them if you can not have their algorithm,
and can not have a list of unique numbers, your only choice is:

four bytes binary gives you 4,294,967,295 potential unique numbers.

I would store my last used secret number in a one row db2 table or a one record vsam file called
Data.Security.Dept.Secret.Fg.Num,
and start from 0.
and would not waste any more time on this idiocy.
Now I understand your location:
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Fri Jul 16, 2010 3:10 pm    Post subject:
Reply with quote

Would some sort of hashing algorithm work?
Back to top
View user's profile Send private message
ojdiaz

New User


Joined: 19 Nov 2008
Posts: 90
Location: Spain

PostPosted: Fri Jul 16, 2010 5:26 pm    Post subject:
Reply with quote

dbzTHEdinosauer wrote:
...and would not waste any more time on this idiocy.
Now I understand your location:


icon_lol.gif You brought a little joy to my day.

Seriously, I don't know what's the big secretism around a simple process, but whatever, It is their shop, I'm Just the humble lowly annalist-programer who should be grateful to work for them.... *sighs*

On a non sarcastic note, I just received word from the people responsible for this "secret process" and I was told that they don't require an historical value, just an unique value per daily file per "user code" field. So That means that if in a given day, i have 1.000.000 records, and if within that bunch of records the user code field is only 20 different values, then I can send them a different value from 1 trhough 20 as an translation of the "user code". I still don't know what they really want to do with that. I hate when the requests are not clear enough and I hate above most things that those requests are constantly changed overnight, but if they have informed me that earlier, it would have saved me a lot of time, effort and stress

dbzTHEdinosauer, Thanks for your suggestion. It seemed like a valid thing to try given my current scenario... (y)
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Fri Jul 16, 2010 5:32 pm    Post subject:
Reply with quote

Maybe a "deflate" algorithm can be of help. They are for instance used in ZIP encoders.
Back to top
View user's profile Send private message
ojdiaz

New User


Joined: 19 Nov 2008
Posts: 90
Location: Spain

PostPosted: Tue Jul 20, 2010 10:17 pm    Post subject:
Reply with quote

Finally i got to an understanding with the security people and we agreed that we would set an incremental value on that field. The file I create on this process is still subject to more processing ahead, but in this point this value was required and so, i created a sequential number per each 20 bytes char field and then this number was assigned to the 4 bytes binary field. This is the code I used:

Code:
//ICETOOL3 EXEC PGM=ICETOOL                               
//SYMNAMES DD DSN=%%SYMLIB(KEOASFD1),DISP=SHR             
//SYMNOUT  DD SYSOUT=*                                     
//TOOLMSG  DD SYSOUT=*                                     
//DFSMSG   DD SYSOUT=*                                     
//SYSPRINT DD SYSOUT=*                                     
//E1DQFILE DD DSN=%%DTS.INPXD05X.XOAJ181F,DISP=SHR         
//         DD DSN=%%DTS.INPXD05X.XOAJ181G,DISP=SHR         
//S1DQHEAD DD DSN=&&F1,DISP=(MOD,PASS),                   
//            DCB=(RECFM=FB,BLKSIZE=0),                   
//            SPACE=(CYL,(100,50),RLSE),UNIT=SYSDA         
//S2DQRENU DD DSN=%%DTS.INPXD05X.XOAJ181Z.KEOAJ182,       
//            DISP=(NEW,CATLG,DELETE),                     
//            SPACE=(CYL,(150,50),RLSE),                   
//            DCB=(RECFM=FB,BLKSIZE=0,DSORG=PS)           
//TOOLIN   DD *                                           
*SE CREA UN REGISTRO DE ENCABEZADO PARA CADA TIPO DE GESTOR
  COPY FROM(E1DQFILE) TO(S1DQHEAD) USING(CTL1)             
*SE COPIA EL FICHERO 1 AL FICHERO 2 Y SE MARCAN LOS DIFERENTES GRUPO
*DE REGISTROS EN FUNCION DEL CODIGO DE GESTOR                       
  COPY FROM(S1DQHEAD) TO(S2DQRENU) USING(CTL2)                     
//CTL1CNTL DD *                                                     
  SORT FIELDS=(FD1-COD-GESTOR,A)                                   
  OUTFIL FNAMES=S1DQHEAD,REMOVECC,BUILD=(KEOACFD1),                 
  SECTIONS=(FD1-COD-GESTOR,                                         
  HEADER3=(3C'$',FD1-COD-GESTOR,655:1C' '))                         
//CTL2CNTL DD *                                                     
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(700:SEQNUM,4,ZD)),               
        IFTHEN=(WHEN=(1,3,CH,EQ,C'$$$'),OVERLAY=(700:SEQNUM,4,BI)),
        IFTHEN=(WHEN=(1,3,CH,NE,C'$$$'),                           
           OVERLAY=(710:SEQNUM,4,ZD,                               
                FD1-COD-CRIT1:700,4,ZD,SUB,710,4,ZD,BI,LENGTH=4),   
                                                         HIT=NEXT),
        IFTHEN=(WHEN=ANY,BUILD=(KEOACFD1),HIT=NEXT),               
        IFTHEN=(WHEN=NONE,BUILD=(KEOACFD1))                         
  SORT FIELDS=COPY                                                 
  OUTFIL INCLUDE=(1,3,CH,NE,C'$$$'),BUILD=(KEOACFD1),FNAMES=S2DQRENU


And this is the Symbols map:

Code:

KEOACFD1,1,655,CH
FD1-COD-OPCION,1,2,FI
FD1-COD-AACC,3,8,PD
FD1-COD-CLIENTE,11,9,CH
FD1-XTI-NOCLIEN,20,1,CH
FD1-COD-BANCO,21,4,CH
FD1-COD-BANCA,25,2,FI
FD1-COD-TERRITORIO,27,2,FI
FD1-COD-ZONA,29,2,FI
FD1-COD-OFICINA,31,2,FI
FD1-COD-PAIS,33,2,CH
FD1-COD-GESTOR,35,20,CH
FD1-COD-COLECTIVO,55,8,FI
FD1-COD-AREA,63,2,FI
FD1-COD-AGRUP,65,4,FI
FD1-COD-PRODUCTO,69,4,FI
FD1-COD-TIPRESP,73,2,FI
FD1-COD-MODALFC,75,2,FI
FD1-COD-TIPAC,77,5,CH
FD1-COD-OBJETOFC,82,2,FI
FD1-COD-CRIT1,84,4,FI
FD1-COD-CRIT2,88,4,FI
FD1-COD-CRIT3,92,4,FI
FD1-DES-CRIT1,96,60,CH
FD1-DES-CRIT2,156,60,CH
FD1-DES-UNIDAD,216,60,CH
FD1-QTY-CLITOT,276,8,PD
FD1-QTY-CLIASIG,284,8,PD
FD1-QTY-CLIGEST,292,8,PD
FD1-QTY-ACCTOT,300,8,PD
FD1-QTY-ACCASIG,308,8,PD
FD1-QTY-ACCGEST,316,8,PD
FD1-QTY-CLTPLAN,324,8,PD
FD1-QTY-CLTNOGES,332,8,PD
FD1-QTY-ACCPLAN,340,8,PD
FD1-QTY-ACCNOGES,348,8,PD
FD1-DES-CAMPANA,356,60,CH
FD1-DES-PRODUCTO,416,60,CH
FD1-DES-RESPUESTA,476,60,CH
FD1-DES-MODALIDAD,536,60,CH
FD1-DES-GESTOR,596,60,CH


I though on using group operations to assing the unique value to each Field, but the current PTF on that shop wouldn't let me, so I used a code that Skolusu showed in another request and I think I've got it right. The first tests shows me the results I want. I'm writing again just to know if theres is a more efficient way to do what I did is it allright as it is. I take in consideration that the input files will be quite large, around 10.000.000 records per file

I guess the solution was simpler than I originally though, but the problem was the way the request was made. Thanks again for you support and suggestions everyone icon_biggrin.gif

Oliver
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Tue Jul 20, 2010 10:49 pm    Post subject:
Reply with quote

ojdiaz wrote:

I though on using group operations to assing the unique value to each Field, but the current PTF on that shop wouldn't let me, so I used a code that Skolusu showed in another request and I think I've got it right. The first tests shows me the results I want. I'm writing again just to know if theres is a more efficient way to do what I did is it allright as it is. I take in consideration that the input files will be quite large, around 10.000.000 records per file

I guess the solution was simpler than I originally though, but the problem was the way the request was made. Thanks again for you support and suggestions everyone icon_biggrin.gif

Oliver


ojdiaz,

You don't really need two passes of data to get the results. if your intention is to just sequence the records by group then it is very easy. It can be done in a single pass like shown below


Code:

//STEP0100 EXEC PGM=SORT       
//SYSOUT   DD SYSOUT=*         
//SYMNAMES DD *                 
KEOACFD1,1,655,CH               
FD1-COD-GESTOR,35,20,CH         
FD1-COD-CRIT1,84,4,FI
//SORTIN   DD DSN=Your input Fb 651 file,DISP=SHR
//SORTOUT  DD SYSOUT=*     
//SYSIN    DD *             
  SORT FIELDS=(FD1-COD-GESTOR,A),EQUALS

  OUTREC IFTHEN=(WHEN=INIT,                                         
  OVERLAY=(652:SEQNUM,4,BI,SEQNUM,4,BI,RESTART=(FD1-COD-GESTOR))),   
  IFTHEN=(WHEN=(656,4,BI,EQ,1),                                     
  OVERLAY=(FD1-COD-CRIT1:SEQNUM,4,BI)),                             
  IFTHEN=(WHEN=NONE,                                                 
  OVERLAY=(656:SEQNUM,4,BI,                                         
           FD1-COD-CRIT1:652,4,BI,SUB,656,4,BI,BI,LENGTH=4))         
                                                                     
  OUTFIL BUILD=(KEOACFD1)                                           
//*
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Comparing Decimal and CHAR columns rakesh17684 DB2 7 Thu Oct 20, 2016 2:33 am
No new posts Casting a Binary Number to Numeric in... Bob Steinkraus Java & MQSeries 6 Tue Aug 09, 2016 5:58 pm
No new posts conversion from char to packed decimal Musab Ahmed DFSORT/ICETOOL 7 Fri Apr 08, 2016 1:12 pm
No new posts Converting field from char to number danylele74 DB2 4 Tue Mar 29, 2016 4:24 pm
No new posts Converting s9(9) comp field to char l.nethaji DFSORT/ICETOOL 3 Fri Jan 22, 2016 12:14 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us