Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 9405

DFSORT/ICETOOL :: RE: Unwrap the data based on delimiter X'25'

$
0
0
Author: bhavana yalavarthi
Posted: Fri Dec 09, 2016 4:46 pm (GMT 5.5)

this is the i/p

Code:
ISA*00*          *00*          *01*078769021      *16*054481205CPIC  *161111*022
CEC5FF544444444445FF544444444445FF5FFFFFFFFF4444445FF5FFFFFFFFFCDCC445FFFFFF5FFF
921C00C0000000000C00C0000000000C01C078769021000000C16C054481205379300C161111C022
 ------------------------------------------------------------------------------
9*U*00301*000000061*0*P*~.GS*PS*078769021*054481205*161111*0229*61*X*003010.ST*8
F5E5FFFFF5FFFFFFFFF5F5D5A2CE5DE5FFFFFFFFF5FFFFFFFFF5FFFFFF5FFFF5FF5E5FFFFFF2EE5F
9C4C00301C000000061C0C7C1572C72C078769021C054481205C161111C0229C61C7C003010523C8
 ------------------------------------------------------------------------------
30*610001.BFR*00**161110*DL*A*170201*170301*161110.N1*MI*Toyota Tsusho America,
FF5FFFFFF2CCD5FF55FFFFFF5CD5C5FFFFFF5FFFFFF5FFFFFF2DF5DC5E9A9A84EAAA894C98988864
30C6100015269C00CC161110C43C1C170201C170301C161110551C49C368631032428601459931B0
 ------------------------------------------------------------------------------
Inc.*92*311.LIN**VP*766325AA0AC*PO*20212149.UIT*LB.PID*F*9B***CR SP122B .026 X 4



This is the expected o/p.
Code:
ISA*00**00**01*078769021*16*054481205CPIC*161111*0229*U*00301*000000061*0*P*~.
GS*PS*078769021*054481205*161111*0229*61*X*003010.                             
ST*830*610001.                                                                 
N1*MI*ToyotaTsushoAmerica,Inc.*92*311.                                         
ISA*00**00**01*017093972*16*054481205CPIC*161110*0320*U*00300*000000095*0*P*@.
GS*PS*0000000282*054481205*161110*0320*95*X*003010.                           
ST*830*950001.                                                                 
N1*MI*MILLSTEELCOMPANY*92*0000000282.                                         
ISA*00**00**01*112064324*16*054481205CPIC*161108*1452*X*00300*000000157*0*P**.
GS*PS*000000195*054481205*161108*1452*157*X*003010.                           
ST*830*000000272.                                                             
N1*MI*MI-TECHSTEEL-DECATUR,AL.*92*33.                                         
ISA*00**00**01*884601162*16*054481205CPIC*161108*1453*X*00300*000000105*0*P**.



The source is GDG generations.We will copy all gdg's data into single o/p dataset,the problem is gdg data will also be like this.
_________________
Y.Bhavana


Viewing all articles
Browse latest Browse all 9405

Trending Articles