IBM Mainframe Forum

Mainframe Technical Support Forums
https://www.ibmmainframeforum.com/

Call a program in SORT.

https://www.ibmmainframeforum.com/dfsort-icetool-icegener/topic8336.html

Page 1 of 1

Call a program in SORT.

PostPosted: Sat Oct 20, 2012 7:00 pm
by Mehdi shri
Dear friends.
I want to inverse an string on a field of input record. For example consider below:
Select all
XYZABCD001
XYZEFGH001
XYZIJKL001
XYZMNOP001

I want to exract like below:
Select all
XYZDCBA001
XYZHGFE001
XYZLKJI001
XYZPONM001

Is there a program to inverse the string form col4 to col7.(Or a control statement parameter to do this)
If isn't there how I can call my program (a load module that inverse an string) in sort control statment. And how my program must receieve input and send output to the SORT program.

Re: Call a program in SORT.

PostPosted: Sat Oct 20, 2012 8:59 pm
by BillyBoyo
No, it doesn't work like that.

The only way to use a seperate program is to write an EXIT. This is documented in the manual. I've left it deliberately vague at this point, as there is no need for you to do this, try:

Select all
  INREC BUILD=(1,3,7,1,6,1,5,1,4,1,8,3)


That will copy bytes 1 for a length of 3 from the input, followed by bytes 7, 6, 5 and 4 in that order, then bytes 8 for a length of three.

Re: Call a program in SORT.

PostPosted: Sun Oct 21, 2012 10:56 am
by Mehdi shri
Dear BillyBoyo
I want to inverse a larg string. For example col3 to col35 (33 byte lenght string). This is very dificault to code based on your suggestion.

Re: Call a program in SORT.

PostPosted: Sun Oct 21, 2012 12:53 pm
by dick scherrer
Hello,

No, not difficult, but would take a few minutes to type. . . .

Maybe this could be done with a COBOL program using the REVERSE function if you are unwilling to do as suggested?

Re: Call a program in SORT.

PostPosted: Mon Oct 22, 2012 2:42 pm
by BillyBoyo
Select all
  INREC BUILD=(1,2,
               7,1,6,1,5,1,4,1,
               8,3)


Select all
  INREC BUILD=(1,2,
               35,1,34,1,33,1,32,1,31,1,30,1,
               29,1,28,1,27,1,27,1,26,1,25,1,24,1,23,1,22,1,21,1,20,1,
               29,1,28,1,27,1,27,1,26,1,25,1,24,1,23,1,22,1,21,1,20,1,
               29,1,28,1,27,1,27,1,26,1,25,1,24,1,23,1,
               36,whatever)


If you look, you need to change the remaining 2s in the second lot of "twenties" to 1s and zeros.

For extra clarity, consider symbols/SYMNAMES.

This "reverse" can be a good example of the difference between BUILD and OVERLAY. Once you have it working with BUILD, change it to OVERLAY and let us know what you make of it.

Re: Call a program in SORT.

PostPosted: Mon Oct 22, 2012 9:57 pm
by prino
Mehdi shri wrote:Is there a program to inverse the string form col4 to col7.(Or a control statement parameter to do this)
If isn't there how I can call my program (a load module that inverse an string) in sort control statment. And how my program must receieve input and send output to the SORT program.

Yes there is, it's called an exit. E15 for input, E35 for output, and the exit can be written in Cobol. Now go and RTFM.

Re: Call a program in SORT.

PostPosted: Mon Oct 22, 2012 11:05 pm
by skolusu
Mehdi shri,

You consider coding for 33 characters as a difficult task? Wow. Anyway here is an example of E15 exit which reverses the string for you and passes it back to SORT.

Select all
//STEP0100  EXEC PGM=IGYCRCTL                         
//SYSPRINT DD SYSOUT=*                               
//SYSTERM  DD SYSOUT=*                               
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)     
//SYSUT2   DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)     
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)     
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)     
//SYSUT5   DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)     
//SYSUT6   DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)     
//SYSUT7   DD UNIT=SYSDA,SPACE=(CYL,(10,2),RLSE)     
//SYSLIN   DD DSN=&&LOADSET,                         
//            DISP=(MOD,PASS),                       
//            UNIT=SYSDA,                             
//            SPACE=(CYL,(1,1),RLSE)                 
//SYSIN    DD *                                       
        IDENTIFICATION DIVISION.                                 
        PROGRAM-ID. REVSTRNG.                                     
        ENVIRONMENT DIVISION.                                     
        DATA DIVISION.                                           
        WORKING-STORAGE SECTION.                                 
        LINKAGE SECTION.                                         
        01  RECORD-FLAGS               PIC 9(8) BINARY.           
            88  FIRST-REC              VALUE 00.                 
            88  MIDDLE-REC             VALUE 04.                 
            88  END-REC                VALUE 08.                 
                                                                 
        01 IP-RECORD                   PIC X(80).                 
        01 OP-RECORD                   PIC X(80).                 
                                                                 
        PROCEDURE DIVISION USING  RECORD-FLAGS                   
                                , IP-RECORD                       
                                , OP-RECORD.                     
                                                                 
           IF END-REC                                             
              MOVE 8 TO RETURN-CODE                               
           ELSE                                                   
              MOVE IP-RECORD  TO OP-RECORD                       
              MOVE FUNCTION REVERSE(IP-RECORD(1:30)) TO           
                            OP-RECORD (45:30)                     
              MOVE 20 TO RETURN-CODE                             
           END-IF                                                 
           GOBACK.                                               
//*                                                               
//STEP0200 EXEC PGM=IEWL,COND=(5,LT,STEP0100)           
//SYSLIB   DD DSN=CEE.SCEELKED,                         
//            DISP=SHR                                 
//SYSLIN   DD DSN=*.STEP0100.SYSLIN,DISP=(OLD,DELETE)   
//SYSLOUT  DD SYSOUT=*                                 
//SYSPRINT DD SYSOUT=*                                 
//SYSDBOUT DD SYSOUT=*                                 
//SYSUDUMP DD SYSOUT=*                                 
//SYSLMOD  DD DSN=Your.pgm.loadlib.pds(REVSTRNG),       
//            DISP=OLD                                 
//*                                                     
//STEP0300 EXEC PGM=SORT,COND=(5,LT,STEP0100)           
//STEPLIB  DD DSN=CEE.SCEERUN,DISP=SHR                 
//EXITC    DD DSN=Your.pgm.loadlib.pds,DISP=SHR         
//SYSOUT   DD SYSOUT=*                                 
//SORTIN   DD *                                         
I WANT TO REVERSE THIS STRING1                         
THIS IS VERY DIFFICULT TO CODE                           
//SORTOUT  DD SYSOUT=*                                 
//SYSIN    DD *                                         
  SORT FIELDS=COPY                                     
  MODS E15=(REVSTRNG,8000,EXITC,C)                     
//*


Check this link which explains in detail about writing your own exits with examples

http://publibz.boulder.ibm.com/cgi-bin/ ... E1CA60/5.0?

Re: Call a program in SORT.

PostPosted: Tue Oct 23, 2012 11:15 am
by Mehdi shri
Mr.Kolusu
Very thank you.
But when I run the JCL I give RC=12 and the following SYSPRINT:
Select all
20  IGYPS0086-I   "FUNCTION" was specified as an informational word in the current reserved word table.The eserved word table used may be different from the IBM-supplied default.               
20  IGYPS2121-S   "FUNCTION" was not defined as a data-name.  The statement was discarded.
20  IGYPS0088-S   The "MOVE" statement was invalid.  Expected "TO", but found "REVERSE".  The statement was discarded.         

Which statment I must to code?

Re: Call a program in SORT.

PostPosted: Tue Oct 23, 2012 11:48 am
by BillyBoyo
Well, according to the IGYPS0086-I message, your site has updated the Cobol Reserved Word table to prevent the use of the intrinsic Functions. Must be a local standard. Confirm with your Team Leader/Trainer. Why are you asking this type of question of us, not them, first?

Re: Call a program in SORT.

PostPosted: Tue Oct 23, 2012 9:04 pm
by skolusu
Mehdi shri wrote:Mr.Kolusu
Very thank you.
But when I run the JCL I give RC=12 and the following SYSPRINT:


Mehdi Shri,

The next time you have an error, make sure you post the version and release of the product you are using. The first few lines of most IBM products display the version and release of the product. Look at the version and release date of your Cobol compiler in sysprint which should be on the first line of your listing. I am guessing that you must be running VS COBOL II or OS/VS COBOL which are out of service atleast for 15 years which does NOT support the Intrinsic fucntions. Check this link for history of cobol compilers.

http://www.ibm.com/systems/z/os/zos/fea ... obmvs.html
Mehdi shri wrote:Which statment I must to code?


Start coding your own PERFORM Varying statement to mimic the functionality of moving 1 character at a time in the reverse order.
All times are UTC + 5:30 hours
Page 1 of 1
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/