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

FASTSRT COBOL compiler option


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Singaram

New User


Joined: 19 Aug 2009
Posts: 19
Location: India

PostPosted: Tue Sep 01, 2009 9:38 pm
Reply with quote

Hi,

Does the usage of COBOL internal sort with INPUT and/or OUTPUT procedure invokes DFSORT internally while execution if we have set FASTSRT = YES as the COBOL compiler option.

Or is this internal invocation of DFSORT dependent on COBOL version and DFSORT release version.

We are using Enterprise COBOL and DFSORT release 14.

Thanks in advance

Singaram
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA

PostPosted: Tue Sep 01, 2009 9:47 pm
Reply with quote

FASTSRT only applies to USING and GIVING. It has no effect on INPUT or OUTPUT procedures.

I cannot answer your DFSORT question conclusively.

Perhaps this post needs to be moved to the COBOL forum?

Bill
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Tue Sep 01, 2009 10:50 pm
Reply with quote

Quote:
Or is this internal invocation of DFSORT dependent on COBOL version and DFSORT release version.
I believe the COBOL compiler invokes the system sort package (DFSORT, SYNCSORT, or whichever) no matter what. FASTSRT merely tells whether or not COBOL will do the I/O for the USING and GIVING files.
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: Tue Sep 01, 2009 10:51 pm
Reply with quote

Singaram,

I'm not sure what you're asking.

The COBOL SORT verb invokes DFSORT. If COBOL sets the FASTSRT option, then DFSORT accesses the data sets directly. If COBOL sets the NOFASTSRT option, then COBOL accesses the data sets and passes the records to/from DFSORT.

For more information on FASTSRT, see the COBOL manual. For more information on DFSORT and COBOL, see:

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CT10/6.0?DT=20080528173317
Back to top
View user's profile Send private message
Singaram

New User


Joined: 19 Aug 2009
Posts: 19
Location: India

PostPosted: Tue Sep 01, 2009 11:26 pm
Reply with quote

Thanks a lot Frank.

To clarify my question; consider the following 4 cases

CASE1 :

COBOL SORT verb with USING/GIVING with FASTSRT option

CASE2 :

COBOL SORT verb with USING/GIVING with NOFASTSRT option

CASE3 :

COBOL SORT verb with INPUT/OUTPUT procedure with FASTSRT option

CASE4:

COBOL SORT verb with INPUT/OUTPUT procedure with NOFASTSRT option

In all the above said cases does COBOL invoke DFSORT for sort processing?
In all the above said cases will I/O be taken care by COBOL if NOFASTSRT is used and vice versa if FASSRT is in effect?
[/quote]
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: Tue Sep 01, 2009 11:42 pm
Reply with quote

Quote:
In all the above said cases does COBOL invoke DFSORT for sort processing?


Yes.

Quote:
In all the above said cases will I/O be taken care by COBOL if NOFASTSRT is used and vice versa if FASSRT is in effect?


Specifying the FASTSRT option does NOT guarantee that COBOL will use it - that decision is made by COBOL. If FASTSRT is in effect, then the I/O is taken care of by DFSORT. If NOFASTSRT is in effect, then the I/O is taken care of by COBOL.
Back to top
View user's profile Send private message
Singaram

New User


Joined: 19 Aug 2009
Posts: 19
Location: India

PostPosted: Wed Sep 02, 2009 1:00 am
Reply with quote

Thanks once again for the timely help.

As referred by you, I was going through the manual as
"http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CT10/6.0?DT=20080528173317" and found that

1.When NOFASTSRT is in effect, the E15 user exit routine is used for USING/INPUT PROCEDURE and the E35 exit routine is used for GIVING/OUTPUT PROCEDURE.

2. FASTSRT cannot be used for input processing when an INPUT PROCEDURE is specified. Referring for further details on the COBOL prog guide indicated that

With FASTSRT in effect:

Quote:

You cannot use an input procedure on an input file, nor an output procedure on an output file. Instead of using input or output procedures, you might be able to use DFSORT control statements: – INREC
– OUTFILE – OUTREC – INCLUDE – OMIT – STOPAFT – SKIPREC – SUM Many DFSORT functions perform the same operations that are common in input or output procedures. Code the appropriate DFSORT control statements instead, and place them either in the IGZSRTCD data set or the SORTCNTL data set. v Do not code the LINAGE clause for the output FD entry.



Once again thanks a lot for proper direction Frank.[/quote]
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 -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts How I Found a Bug in a FORTRAN Compiler All Other Mainframe Topics 4
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
Search our Forums:

Back to Top