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

File format conversion


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

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Sat Feb 23, 2019 11:50 pm
Reply with quote

I'll check the version of DFSORT later, but, unless you want to figure out if this conversion is actually possible, I'd suggest you don't spend too much more time on it, as I've managed to find a way, adding just two statements
Code:
 /*----------------------------------------------------------+
 | Save the "departure" time of the idle-time split          |
 +----------------------------------------------------------*/
 if substr(owner -> list.cday, 3, 1) ^= '#' &
    substr(list.type, 2, 1)           = '^' then
   pp_ntime = list.dtime;
and
Code:
 /*------------------------------------------------------------+
 | Use starting time of idle-time as end-of-ride time!         |
 +------------------------------------------------------------*/
 if pp_ntime ^= -1 then
   split_ruler(1).time(1) = pp_ntime;
 else

to the program, to ignore 321 out of 420 of the "!^" idle pseudo-intervals, and I'm sure the other 99 will also follow RSN...

Removing the intervals, with all changes involved, from the input file turns out to lead to other problems that I'm still trying to figure out.

Anyway, I also applied the changes to two other versions of the program, written in Virtual Pascal, and in Virtual Pascal with more in-line assembler than actual Pascal, and the results match. A few quick manual checks also show that the new version is correct.
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Sun Feb 24, 2019 3:27 am
Reply with quote

Way behind on DFSORT maintenance,

Quote:
If you see:

ICE201I F RECORD TYPE ...

the F indicates you have the July, 2008 DFSORT functions (FINDREP, WHEN=GROUP, DATASORT, SUBSET, etc) and all of the earlier functions.
This function level corresponds to z/OS DFSORT V1R5 PTF UK90013 and z/OS DFSORT V1R10 PTF UK90014. You are behind on DFSORT functional PTFs. Ask your System Programmer to install z/OS DFSORT V1R10 PTF UK90025 or z/OS DFSORT V1R12 PTF UK90026.

And that's where I am, z/OS 1.10 forever...

Anyway, 417 out of 420 "!^" cases solved on-the-fly, will do the last three manually, and see if that has any influence.
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania

PostPosted: Fri Mar 01, 2019 4:10 pm
Reply with quote

My final(?) post in this thread

The to-be-backed-out change in the input file format that is now not ever going to happen, was introduced in August 2009, and possibly even earlier.

I do know that at some stage there have been backports of minor changes to older versions of the program, just to allow the regression testing framework to run after minor positional changes in the format of the input file, and it may well have been that some of these changes masked out the introduction of the "idle time" pseudo splits. It would require restoring very old saved-as-xmit file versions (I've got about 220 of them, yes, really) to get to the bottom of this, but life's just way to short to indulge in this kind of "fun and games".
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 How to split large record length file... DFSORT/ICETOOL 7
No new posts Populate last day of the Month in MMD... SYNCSORT 2
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts Modifying Date Format Using DFSORT DFSORT/ICETOOL 9
Search our Forums:

Back to Top