IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Convertion FB to VB to remove the spaces from the middle


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Abhijat Sinha

New User


Joined: 22 Jun 2007
Posts: 11
Location: India

PostPosted: Fri Jun 22, 2007 3:58 pm
Reply with quote

Hi,

I need some hep with the sorting.
I have a FB file -

ABCD,+1111
ABCD,b+111
ABCD,bb+11
ABCD,bbb+1

note: where 'b' is spaces.
Now my concern is how to convert it to

ABCD,+1111
ABCD,+111
ABCD,+11
ABCD,+1

i.e. to remove the spaces from the middle of the input file and shifting the rest of data to left.

Any help is greatly appreciated.

Thank you,
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India

PostPosted: Fri Jun 22, 2007 4:01 pm
Reply with quote

Abhijat ,

Use the topic Squeeze out blanks or other characters from the sorttrck.pdf. You can download pdf from -

www.ibm.com/servers/storage/support/software/sort/mvs/tricks/
Back to top
View user's profile Send private message
Abhijat Sinha

New User


Joined: 22 Jun 2007
Posts: 11
Location: India

PostPosted: Fri Jun 22, 2007 4:13 pm
Reply with quote

Thanks a lot for such a quick reply. This PDF is indeed useful.
Back to top
View user's profile Send private message
Abhijat Sinha

New User


Joined: 22 Jun 2007
Posts: 11
Location: India

PostPosted: Fri Jun 22, 2007 7:22 pm
Reply with quote

Hi,

When i tried to use the following JCL for the same problem as stated in previous messages, it is returning me a RC=20

Code:

//STEP1    EXEC PGM=ICEMAN
//SYSOUT   DD SYSOUT=*                                 
//SORTIN   DD DSN=CHANGE.FILE1,DISP=SHR         
//SORTOUT  DD DSN=CHANGE.FILEOUT2,             
//            DISP=(NEW,CATLG,DELETE),                 
//            UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE),       
//            DCB=(LRECL=50,BLKSIZE=500,RECFM=FB)       
//SYSIN    DD *                                         
  OPTION COPY                                           
  INREC BUILD=(1,10,SQZ=(SHIFT=LEFT))                   
/*                                                     


I am stuck up with this error and it is not giving me any other error messeges as well.

Please help.
Thank you,
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Fri Jun 22, 2007 9:05 pm
Reply with quote

When I ran your job with DFSORT, it gave RC=0.

RC=20 means that it isn't finding your message data set. Since you have a //SYSOUT DD statement, I don't see how that could happen with DFSORT.

Please show me the JES messages from the run.

Note: This has nothing to do with the RC, but I thought I'd mention it. You are building a 10-byte record with the INREC statement, but you have LRECL=50 for SORTOUT. This will cause DFSORT to pad with binary zeros from positions 11-50. Not sure if that's what you actually want.
Back to top
View user's profile Send private message
Abhijat Sinha

New User


Joined: 22 Jun 2007
Posts: 11
Location: India

PostPosted: Fri Jun 22, 2007 9:37 pm
Reply with quote

Hi Frank,

There is a limitation here that if i mention PGM=DFSORT, there is no such program found. (However we use mostly ICEMAN/SYNCSORT for our purposes. Does this SQZ work only with DFSORT?)

Now based on your message below, it triggered couple of doubts
1)
Quote:
"RC=20 means that it isn't finding your message data set."

What is the meaning of MESSAGE data set? Is is anything different from the PS mentioned in my JCL?

2)
Quote:
This will cause DFSORT to pad with binary zeros from positions 11-50.

As mentioned earlier, I have data till the first 10 bytes only. Will the rest data be padded with zeros only and not by blanks? If so then how to prevent it?

Following are the JES messages:

From JESMSGLG:
12.02.39 JOB09644 ---- FRIDAY, 22 JUN 2007 ----
12.02.39 JOB09644 IRR010I USERID A151XP9 IS ASSIGNED TO THIS JOB.
12.02.39 JOB09644 ICH70001I A151XP9 LAST ACCESS AT 11:46:30 ON FRIDAY, JUNE 22
12.02.39 JOB09644 $HASP373 A151XP9A STARTED - INIT 17 - CLASS F - SYS SYSB
12.02.39 JOB09644 IEF403I A151XP9A - STARTED - TIME=12.02.39
12.02.39 JOB09644 +BCBS999I JOBNAME STEP STEPNAME PROCSTEP PGMNAME RETCODE
12.02.39 JOB09644 +BCBS999I A151XP9A 1 STEP SYNCTOOL 020
12.02.39 JOB09644 IEF404I A151XP9A - ENDED - TIME=12.02.39
12.02.39 JOB09644 +BCBS999I A151XP9A ENDED EOJ
12.02.39 JOB09644 $HASP395 A151XP9A ENDED
------ JES2 JOB STATISTICS ------
22 JUN 2007 JOB EXECUTION DATE
14 CARDS READ
49 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
3 SYSOUT SPOOL KBYTES
0.00 MINUTES EXECUTION TIME

From JESYSMSG :
ICH70001I A151XP9 LAST ACCESS AT 11:46:30 ON FRIDAY, JUNE 22, 2007
IEF236I ALLOC. FOR A151XP9A STEP
IEF237I JES2 ALLOCATED TO SYSOUT
IGD103I SMS ALLOCATED TO DDNAME SORTIN
IGD101I SMS ALLOCATED TO DDNAME (SORTOUT )
DSN (A151XP9.CHANGE.FILEOUT2 )
STORCLAS (SCTEMP) MGMTCLAS (MCDELETE) DATACLAS (DCPS10)
VOL SER NOS= WRKH06
IEF237I JES2 ALLOCATED TO SYSIN
IEF142I A151XP9A STEP - STEP WAS EXECUTED - COND CODE 0020
IEF285I A151XP9.A151XP9A.JOB09644.D0000102.? SYSOUT
IGD104I A151XP9.CHANGE.FILE2 RETAINED, DDNAME=SORTIN
IGD104I A151XP9.CHANGE.FILEOUT2 RETAINED, DDNAME=SORTOUT
IEF285I A151XP9.A151XP9A.JOB09644.D0000101.? SYSIN
IEF373I STEP/STEP /START 2007173.1202
IEF374I STEP/STEP /STOP 2007173.1202 CPU 0MIN 00.00SEC SRB 0MIN 00.00S
IEF375I JOB/A151XP9A/START 2007173.1202
IEF376I JOB/A151XP9A/STOP 2007173.1202 CPU 0MIN 00.00SEC SRB 0MIN 00.00S

Please let me know and thanks for all your help.

Thank you,
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Fri Jun 22, 2007 11:39 pm
Reply with quote

Quote:
There is a limitation here that if i mention PGM=DFSORT, there is no such program found. (However we use mostly ICEMAN/SYNCSORT for our purposes.)


PGM=DFSORT is not supported by DFSORT or any other sort program. PGM=ICEMAN or PGM=SORT invokes the sort product at your site which could be DFSORT, Syncsort or Ca-Sort. In the JES messages, I see:

Quote:
12.02.39 JOB09644 +BCBS999I A151XP9A 1 STEP SYNCTOOL 020


which indicates you're using Syncsort, not DFSORT.

Quote:
Does this SQZ work only with DFSORT?


The SQZ function is supported by DFSORT. The SQZ function is NOT supported by Syncsort.

Quote:
What is the meaning of MESSAGE data set? Is is anything different from the PS mentioned in my JCL?


For PGM=ICEMAN (as shown in your first post), //SYSOUT is the message data set. But your JES messages indicate you're using SYNCTOOL which means you really used PGM=SYNCTOOL, not PGM=ICEMAN and in that case the message data sets are //TOOLMSG and //DFSMSG. Go back and look at your JCL - it appears that what you ran to get these JES messages is not the job you showed in your first post.

Quote:
As mentioned earlier, I have data till the first 10 bytes only. Will the rest data be padded with zeros only and not by blanks? If so then how to prevent it?


By default, the padding will be with binary zeros. If you want blanks, you could use:

Code:

     INREC BUILD=(1,10,SQZ=(SHIFT=LEFT),50:X)                   


But, of course, that will only work with DFSORT, not Syncsort.

All of that being said, I'm a DFSORT developer. DFSORT and Syncsort are competitive products. I'm happy to answer questions on DFSORT and DFSORT's ICETOOL, but I don't answer questions on Syncsort.

And since you're using Syncsort, not DFSORT, I'm moving this thread to the JCL Forum. Please post future Syncsort questions there. This Forum is for DFSORT questions.
Back to top
View user's profile Send private message
Abhijat Sinha

New User


Joined: 22 Jun 2007
Posts: 11
Location: India

PostPosted: Sat Jun 23, 2007 12:03 am
Reply with quote

Hi Frank,

It seems like I really messed up the Spool messages last time (where i tried Syncsort)

So i am here again posting my JCL and JES messages which i ran using ICETOOL.

JCL
Code:
//A151XP9A JOB (9999999,D,9999999),'AB',MSGLEVEL=(1,1),
//         CLASS=F,NOTIFY=&SYSUID,MSGCLASS=S           
//*****************************************************
//STEP    EXEC PGM=ICETOOL                             
//SYSOUT   DD SYSOUT=*                                 
//SORTIN   DD DSN=A151XP9.CHANGE.FILE2,DISP=SHR       
//SORTOUT  DD DSN=A151XP9.CHANGE.FILEOUT2,             
//            DISP=(NEW,CATLG,DELETE),                 
//            UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE),       
//            DCB=(LRECL=50,BLKSIZE=0,RECFM=FB)       
//SYSIN    DD *                                       
  OPTION COPY                                         
  INREC BUILD=(1,10,SQZ=(SHIFT=LEFT))                 
/*                                                     


JES messages:
JESMSGLG
Code:
                     J E S 2  J O B  L O G  --  S Y S T E M  S Y S B  --  N O D
                                                                               
14.25.30 JOB00513 ---- FRIDAY,    22 JUN 2007 ----                             
14.25.30 JOB00513  IRR010I  USERID A151XP9  IS ASSIGNED TO THIS JOB.           
14.25.30 JOB00513  ICH70001I A151XP9  LAST ACCESS AT 14:24:23 ON FRIDAY, JUNE 22
14.25.30 JOB00513  $HASP373 A151XP9A STARTED - INIT 05   - CLASS F - SYS SYSB   
14.25.30 JOB00513  IEF403I A151XP9A - STARTED - TIME=14.25.30                   
14.25.30 JOB00513  +BCBS999I  JOBNAME STEP STEPNAME PROCSTEP PGMNAME     RETCODE
14.25.30 JOB00513  +BCBS999I A151XP9A   1  STEP              ICETOOL     020   
14.25.30 JOB00513  IEF404I A151XP9A - ENDED - TIME=14.25.30                     
14.25.30 JOB00513  +BCBS999I A151XP9A ENDED                              EOJ   
14.25.30 JOB00513  $HASP395 A151XP9A ENDED                                     
------ JES2 JOB STATISTICS ------                                               
  22 JUN 2007 JOB EXECUTION DATE                                               
           14 CARDS READ                                                       
           49 SYSOUT PRINT RECORDS                                             
            0 SYSOUT PUNCH RECORDS                                             
            3 SYSOUT SPOOL KBYTES                                               
         0.00 MINUTES EXECUTION TIME                                           


JESYSMSG
Code:
ICH70001I A151XP9  LAST ACCESS AT 14:24:23 ON FRIDAY, JUNE 22, 2007             
IEF236I ALLOC. FOR A151XP9A STEP                                               
IEF237I JES2 ALLOCATED TO SYSOUT                                               
IGD103I SMS ALLOCATED TO DDNAME SORTIN                                         
IGD101I SMS ALLOCATED TO DDNAME (SORTOUT )                                     
        DSN (A151XP9.CHANGE.FILEOUT2                     )                     
        STORCLAS (SCTEMP) MGMTCLAS (MCDELETE) DATACLAS (DCPS10)                 
        VOL SER NOS= WRKH02                                                     
IEF237I JES2 ALLOCATED TO SYSIN                                                 
IEF142I A151XP9A STEP - STEP WAS EXECUTED - COND CODE 0020                     
IEF285I   A151XP9.A151XP9A.JOB00513.D0000102.?         SYSOUT                   
IGD104I A151XP9.CHANGE.FILE2                         RETAINED,  DDNAME=SORTIN   
IGD104I A151XP9.CHANGE.FILEOUT2                      RETAINED,  DDNAME=SORTOUT 
IEF285I   A151XP9.A151XP9A.JOB00513.D0000101.?         SYSIN                   
IEF373I STEP/STEP    /START 2007173.1425                                       
IEF374I STEP/STEP    /STOP  2007173.1425 CPU    0MIN 00.00SEC SRB    0MIN 00.00S
IEF375I  JOB/A151XP9A/START 2007173.1425                                       
IEF376I  JOB/A151XP9A/STOP  2007173.1425 CPU    0MIN 00.00SEC SRB    0MIN 00.00S


As per your earlier advice, ICETOOL should give the results now?

Thank you,
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Sat Jun 23, 2007 12:31 am
Reply with quote

Hello,

Please post the output from the step itself. You have posted the jcl and 2 of the jes sysout datasets, but you didn't post the output from the step execution.
Back to top
View user's profile Send private message
Abhijat Sinha

New User


Joined: 22 Jun 2007
Posts: 11
Location: India

PostPosted: Sat Jun 23, 2007 12:36 am
Reply with quote

Hi,

There are only 3 steps that got created in Spool. They are as shown below:
Code:
SDSF JOB DATA SET DISPLAY - JOB A151XP9A (JOB00513)    LINE 1-3 (3)           
COMMAND INPUT ===>                                            SCROLL ===> CSR
NP   DDNAME   StepName ProcStep DSID Owner    C Dest               Rec-Cnt Page
     JESMSGLG JES2                 2 A151XP9  S LOCAL                   19     
     JESJCL   JES2                 3 A151XP9  S LOCAL                   12     
     JESYSMSG JES2                 4 A151XP9  S LOCAL                   18     


The 2nd one - JESJCL only has my original JCL. There was no other output message created. If a snapshot of JESJCL is needed please let me know.

There is no where that I am getting any other error message for it.

Thank you,
Back to top
View user's profile Send private message
Abhijat Sinha

New User


Joined: 22 Jun 2007
Posts: 11
Location: India

PostPosted: Sat Jun 23, 2007 12:39 am
Reply with quote

Hi,

I am sorry, I forgot to mention that this JCL is still returning me RC=20 as mentioned above. (In case the message chain is not followed from the beginning). The output Dataset is empty.

Thank you,
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Sat Jun 23, 2007 12:55 am
Reply with quote

Abhijat,

You have mixed up ICETOOL and ICEMAN JCL. You have PGM=ICETOOL which means you're invoking ICETOOL, but the rest of your JCL is for ICEMAN, not ICETOOL. The reason you got RC=20 is that ICETOOL requires //TOOLMSG and //DFSMSG for its messages and you don't have those.

Just change from PGM=ICETOOL to PGM=ICEMAN so you're using ICEMAN and the rest of your JCL will be ok.
Back to top
View user's profile Send private message
Abhijat Sinha

New User


Joined: 22 Jun 2007
Posts: 11
Location: India

PostPosted: Sat Jun 23, 2007 1:04 am
Reply with quote

Hi Frank,
Code:
//A151XP9A JOB (9999999,D,9999999),'AB',MSGLEVEL=(1,1),
//         CLASS=F,NOTIFY=&SYSUID,MSGCLASS=S           
//*****************************************************
//STEP    EXEC PGM=ICEMAN                             
//SYSOUT   DD SYSOUT=*                                 
//SORTIN   DD DSN=A151XP9.CHANGE.FILE2,DISP=SHR       
//SORTOUT  DD DSN=A151XP9.CHANGE.FILEOUT2,             
//            DISP=(NEW,CATLG,DELETE),                 
//            UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE),       
//            DCB=(LRECL=50,BLKSIZE=0,RECFM=FB)       
//SYSIN    DD *                                       
  OPTION COPY                                         
  INREC BUILD=(1,10,SQZ=(SHIFT=LEFT))                 
/*                                                     

Hope this time it is fine. icon_redface.gif
Code:
SDSF JOB DATA SET DISPLAY - JOB A151XP9A (JOB00833)     DATA SET DISPLAYED     
COMMAND INPUT ===>                                            SCROLL ===> CSR
NP   DDNAME   StepName ProcStep DSID Owner    C Dest               Rec-Cnt Page
     JESMSGLG JES2                 2 A151XP9  S LOCAL                   21     
     JESJCL   JES2                 3 A151XP9  S LOCAL                   12     
     JESYSMSG JES2                 4 A151XP9  S LOCAL                   18     
     SYSOUT   STEP               102 A151XP9  S LOCAL                   10     

This time it abended
Code:
15.28.08 JOB00833 ---- FRIDAY,    22 JUN 2007 ----                             
15.28.08 JOB00833  IRR010I  USERID A151XP9  IS ASSIGNED TO THIS JOB.           
15.28.08 JOB00833  ICH70001I A151XP9  LAST ACCESS AT 14:52:02 ON FRIDAY, JUNE 22
15.28.08 JOB00833  $HASP373 A151XP9A STARTED - INIT 05   - CLASS F - SYS SYSB   
15.28.08 JOB00833  IEF403I A151XP9A - STARTED - TIME=15.28.08                   
15.28.08 JOB00833  IEF450I A151XP9A STEP - ABEND=S000 U0016 REASON=00000000  207
   207                     TIME=15.28.08                                       
15.28.08 JOB00833  +BCBS999I  JOBNAME STEP STEPNAME PROCSTEP PGMNAME     RETCODE
15.28.08 JOB00833  +BCBS999I A151XP9A   1  STEP              ICEMAN    U0016   
15.28.08 JOB00833  IEF404I A151XP9A - ENDED - TIME=15.28.08                     
15.28.08 JOB00833  +BCBS999I A151XP9A ENDED                              EOJ   
15.28.08 JOB00833  $HASP395 A151XP9A ENDED                                     
------ JES2 JOB STATISTICS ------                                               
  22 JUN 2007 JOB EXECUTION DATE                                               
           14 CARDS READ                                                       
           61 SYSOUT PRINT RECORDS                                             
            0 SYSOUT PUNCH RECORDS                                             
            3 SYSOUT SPOOL KBYTES                                               
         0.00 MINUTES EXECUTION TIME                                           


Code:
ICH70001I A151XP9  LAST ACCESS AT 14:52:02 ON FRIDAY, JUNE 22, 2007             
IEF236I ALLOC. FOR A151XP9A STEP                                               
IEF237I JES2 ALLOCATED TO SYSOUT                                               
IGD103I SMS ALLOCATED TO DDNAME SORTIN                                         
IGD101I SMS ALLOCATED TO DDNAME (SORTOUT )                                     
        DSN (A151XP9.CHANGE.FILEOUT2                     )                     
        STORCLAS (SCTEMP) MGMTCLAS (MCDELETE) DATACLAS (DCPS10)                 
        VOL SER NOS= WRKH08                                                     
IEF237I JES2 ALLOCATED TO SYSIN                                                 
IEF472I A151XP9A STEP - COMPLETION CODE - SYSTEM=000 USER=0016 REASON=00000000 
IEF285I   A151XP9.A151XP9A.JOB00833.D0000102.?         SYSOUT                   
IGD104I A151XP9.CHANGE.FILE2                         RETAINED,  DDNAME=SORTIN   
IGD105I A151XP9.CHANGE.FILEOUT2                      DELETED,   DDNAME=SORTOUT 
IEF285I   A151XP9.A151XP9A.JOB00833.D0000101.?         SYSIN                   
IEF373I STEP/STEP    /START 2007173.1528                                       
IEF374I STEP/STEP    /STOP  2007173.1528 CPU    0MIN 00.01SEC SRB    0MIN 00.00S
IEF375I  JOB/A151XP9A/START 2007173.1528                                       
IEF376I  JOB/A151XP9A/STOP  2007173.1528 CPU    0MIN 00.01SEC SRB    0MIN 00.00S


SYSOUT:
Code:
SYNCSORT FOR Z/OS  1.2.3.0N    U.S. PATENTS: 4210961, 5117495   (C) 2005 SYNCSO
                                                      z/OS   1.4.0             
PRODUCT LICENSED FOR CPU SERIAL NUMBER 2486C, MODEL 2094 707              LICEN
SYSIN :                                                                       
  OPTION COPY                                                                 
  INREC BUILD=(1,10,SQZ=(SHIFT=LEFT))                                         
                    *                                                         
WER268A  INREC STATEMENT   : SYNTAX ERROR                                     
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                                 
WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE                                 


Why is it still telling me that I am using SYNCSORT in my SYSOUT?
I am really getting desperate now to get this to work.

Thank you,
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Sat Jun 23, 2007 1:37 am
Reply with quote

Hello,

You are seeing "SYNCxxx" info because your "sort" is Syncsort.

The WERxxxx messages are another way to recognize Syncsort.

You might ask your system support people if both sort products are available on your system (not typical, but does happen sometimes).

Your current error is because the SQZ function is not available with SYNCxxx.

The reason you see this is because when you specify ICEMAN, your system actually invokes the Syncsort module (SYNCTOOL, i believe).
Back to top
View user's profile Send private message
Abhijat Sinha

New User


Joined: 22 Jun 2007
Posts: 11
Location: India

PostPosted: Sat Jun 23, 2007 1:45 am
Reply with quote

Hi,

I too think it is the same issue as I tried loads of combinations here.
I shall check it out with the systm people. I was guessing if there might be an issue with the version of the Tool also, as I heard SQZ is a recent enough utility.

However, does anyone has any idea how to achieve my original problem WITHOUT DFSORT as I am now not able to invoke it. How do I squeeze the spaces from my input file(In my case aligning all the data to left will also work perfectly)? Maybe some roundabout to achieve the same effect?

Thank you,
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Sat Jun 23, 2007 2:13 am
Reply with quote

Hello,

You might write a bit of code to accomplish the manipulation - any programming language should be ok for what you need.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA

PostPosted: Sat Jun 23, 2007 2:35 am
Reply with quote

Quote:
I too think it is the same issue as I tried loads of combinations here. I shall check it out with the systm people. I was guessing if there might be an issue with the version of the Tool also, as I heard SQZ is a recent enough utility.


I told you several posts ago that only DFSORT supports SQZ and that you are using Syncsort, not DFSORT. DFSORT has had SQZ available since April, 2006. Syncsort does NOT have it.

It is possible (though not probable) that your site has both Syncsort and DFSORT. If so, then since Syncsort is your primary sort product, DFSORT would be your secondary sort product and the only way to get to DFSORT would be to JOBLIB or STEPLIB to the libraries where your System Programmers installed it. Only they would know which libraries those were.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts Sortjoin and Search for a String and ... DFSORT/ICETOOL 1
No new posts Remove leading zeroes SYNCSORT 4
No new posts leading spaces can be removed in trai... DFSORT/ICETOOL 1
No new posts Cobol program with sequence number ra... COBOL Programming 5
No new posts Want to mask Middle 8 Digits of Debit... COBOL Programming 3
Search our Forums:

Back to Top