Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all 8500 articles
Browse latest View live
↧

SYNCSORT :: RE: Adding comments in Synsort

July 13, 2018, 3:17 am
$
0
0
Author: rajiv rengasamy
Posted: Fri Jul 13, 2018 3:47 pm (GMT 5.5)

SYNCSORT manual says

• Comment lines can be inserted between a control statement and its continuation by coding an asterisk (*) in column one.

but somehow i am still successful.
_________________
Regards,
Rajiv R
↧
Search

SYNCSORT :: RE: Adding comments in Synsort

July 13, 2018, 3:18 am
$
0
0
Author: rajiv rengasamy
Posted: Fri Jul 13, 2018 3:48 pm (GMT 5.5)

sorry I meant,but somehow i am still not successful.
_________________
Regards,
Rajiv R
↧
↧

SYNCSORT :: RE: Adding comments in Synsort

July 13, 2018, 4:56 am
$
0
0
Author: Garry Carroll
Posted: Fri Jul 13, 2018 5:26 pm (GMT 5.5)

you haven't 'coded' your controls cards so we can't see where the individual control cards actually start.... other than the comment lines, do they start in col 2 ??

Garry.
_________________
Everyone's entitled to ONE fatal mistake.....
↧

SYNCSORT :: RE: Adding comments in Synsort

July 13, 2018, 5:35 am
$
0
0
Author: rajiv rengasamy
Posted: Fri Jul 13, 2018 6:05 pm (GMT 5.5)

The perfectly working one

Code:
  SORT FIELDS=COPY
  OUTFIL FNAMES=SORTPLO,INCLUDE=((23,1,CH,EQ,C'X',AND,
         (24,1,CH,EQ,C'F',OR,24,1,CH,EQ,C'L',OR,24,1,CH,EQ,C'S'),AND,
         (35,1,CH,EQ,C'C',OR,35,1,CH,EQ,C'D',OR,
          35,1,CH,EQ,C'E',OR,35,1,CH,EQ,C'F',OR,
          35,1,CH,EQ,C'G',OR,35,1,CH,EQ,C'H')),OR,
         (23,1,CH,EQ,C'R',AND,
         (24,1,CH,EQ,C'A',OR,24,1,CH,EQ,C'B'),AND,
         (35,1,CH,EQ,C'W',OR,35,1,CH,EQ,C'X',OR,
          35,1,CH,EQ,C'Y',OR,35,1,CH,EQ,C'Z')),OR,
         ((23,1,CH,EQ,C'B',AND,24,1,CH,EQ,C'A'),AND,
                  (35,1,CH,EQ,C'I',OR,35,1,CH,EQ,C'J')))
[/code]


The one causing problem
Code:
  SORT FIELDS=COPY
  OUTFIL FNAMES=SORTPLO,INCLUDE=(
* MODEL 1.
         (23,1,CH,EQ,C'X',AND,
         (24,1,CH,EQ,C'F',OR,24,1,CH,EQ,C'L',OR,24,1,CH,EQ,C'S'),AND,
         (35,1,CH,EQ,C'C',OR,35,1,CH,EQ,C'D',OR,
          35,1,CH,EQ,C'E',OR,35,1,CH,EQ,C'F',OR,
          35,1,CH,EQ,C'G',OR,35,1,CH,EQ,C'H')),OR,
* MODEL 2.
         (23,1,CH,EQ,C'R',AND,
         (24,1,CH,EQ,C'A',OR,24,1,CH,EQ,C'B'),AND,
         (35,1,CH,EQ,C'W',OR,35,1,CH,EQ,C'X',OR,
          35,1,CH,EQ,C'Y',OR,35,1,CH,EQ,C'Z')),OR,
* MODEL 3.
         ((23,1,CH,EQ,C'B',AND,24,1,CH,EQ,C'A'),AND,
         (35,1,CH,EQ,C'I',OR,35,1,CH,EQ,C'J'))
* END.
        )
  OUTFIL FNAMES=SORTREST,SAVE
[/code]
_________________
Regards,
Rajiv R
↧

SYNCSORT :: RE: Adding comments in Synsort

July 13, 2018, 5:38 am
$
0
0
Author: Garry Carroll
Posted: Fri Jul 13, 2018 6:08 pm (GMT 5.5)

No, that's not the coded format - see the buttons above where you're typing - one is "Code" (about centre) . Use that before and after the control statements. Then we'll be able to properly see what you're using.

Garry.
_________________
Everyone's entitled to ONE fatal mistake.....
↧
↧

DFSORT/ICETOOL :: RE: Comparing Comp-3 fields with greater than equal to condition

July 13, 2018, 5:43 am
$
0
0
Author: Arun Raj
Posted: Fri Jul 13, 2018 6:13 pm (GMT 5.5)

Hello Prateek - welcome to the forums!
Quote:
file1 of length 500
file2 of length 80
Quote:

JOINKEYS FILE=F1,FIELDS=(2417,3,A)
JOINKEYS FILE=F2,FIELDS=(0043,3,A)
REFORMAT FIELDS=(F1:1,2550,F2:1,200)
Not related to your issue, but the length mentioned does not seem to be consistent with the position/lengths in your JOINKEYS/REFORMAT.
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
↧

SYNCSORT :: RE: Adding comments in Synsort

July 13, 2018, 5:48 am
$
0
0
Author: rajiv rengasamy
Posted: Fri Jul 13, 2018 6:18 pm (GMT 5.5)

I have put it in coded format in the above message its.Please refer to my earlier reply.
_________________
Regards,
Rajiv R
↧

SYNCSORT :: RE: Adding comments in Synsort

July 13, 2018, 5:56 am
$
0
0
Author: Arun Raj
Posted: Fri Jul 13, 2018 6:26 pm (GMT 5.5)

I don't have Syncsort, but I guess your problem is not even the comment lines. I am afraid the way it is written is going to fail even without the comment lines you inserted, because of your first INCLUDE=(.. and nothing coded after that. Similarly your last closing brackets by itself in a single line could be another problem. You should terminate your control statements after a comma and then continue on the next line.

Alternatively you can also add comments by leaving one or more blanks after the last parameter or comma
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
↧
Search

SYNCSORT :: RE: Adding comments in Synsort

July 13, 2018, 6:25 am
$
0
0
Author: Arun Raj
Posted: Fri Jul 13, 2018 6:55 pm (GMT 5.5)

Or use the L() expression to make it a bit more readable. This is UNTESTED.
Code:
 OUTFIL FNAMES=SORTPLO,                                   
 INCLUDE=((23,1,CH,EQ,C'X',AND,                           
           24,1,CH,EQ,L(C'F',C'L',C'S'),AND,               
           35,1,CH,EQ,L(C'C',C'D',C'E',C'F',C'G',C'H')),OR,
                                                           
          (23,1,CH,EQ,C'R',AND,                           
           24,1,CH,EQ,L(C'A',C'B'),AND,                   
           35,1,CH,EQ,L(C'W',C''X',C'Y',C'Z')),OR,         
                                                           
          (23,1,CH,EQ,C'B',AND,                           
           24,1,CH,EQ,C'A',AND,                           
           35,1,CH,EQ,L(C'I',C'J')))         

_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
↧
↧

DFSORT/ICETOOL :: RE: Comparing Comp-3 fields with greater than equal to condition

July 13, 2018, 6:49 am
$
0
0
Author: sergeyken
Subject: Re: Comparing Comp-3 fields with greater than equal to condition
Posted: Fri Jul 13, 2018 7:19 pm (GMT 5.5)

Prateeksichem1 wrote:
Comp-3 field in file2 (length S9(13V99))

What "length" stands for??? icon_rolleyes.gif
What does this syntax mean - S9(13V99) - ??????? icon_exclaim.gif

All these stuff have nothing to do with your following SORT statements.

Please provide a clear, correct, and full explanation of your problem. We are here not to guess your hidden thoughts.
_________________
Tyrannosaurus-REXX
↧

SYNCSORT :: RE: Adding comments in Synsort

July 13, 2018, 7:03 am
$
0
0
Author: sergeyken
Posted: Fri Jul 13, 2018 7:33 pm (GMT 5.5)

rajiv rengasamy wrote:

The one causing problem
Code:
  SORT FIELDS=COPY
  OUTFIL FNAMES=SORTPLO,INCLUDE=(
* MODEL 1.
         (23,1,CH,EQ,C'X',AND,
       

OUTFIL ...INCLUDE=( cannot have any continuation line unless it ends with a comma.

1) RTFM
2) For syntax questions, GOTO Beginners Forum
_________________
Tyrannosaurus-REXX
↧

PL/I & Assembler :: SMF IFAMGET macro GTPB_RETURNEDLENGTH field after RC=0806

July 13, 2018, 7:26 am
$
0
0
Author: ironheinrich7
Subject: SMF IFAMGET macro GTPB_RETURNEDLENGTH field after RC=0806
Posted: Fri Jul 13, 2018 7:56 pm (GMT 5.5)

An HLASM module using the SMF IFAMGET macro works really well. An exception would be when the RC=08,RSN=0806 is returned, meaning smf record returned is larger than the buffer area supplied. Unfortunately i cannot test this situation in our Lab as none of our SMF Records (atleast so far) ever exceed the size of the buffer area supplied, namely 32768 bytes,which is (unluckily in this case) the minimum size of the buffer area for this service.

Obviously the easy way around this issue would be to increase the buffer size, to a predetermined maximum possible, and try avoid the issue altogether. However i was wondering if anyone has used this SMF service, and are familiar with whether the GTPB_RETURNEDLENGTH field of the GETPARMBLOCK will contain the actual length of the record which failed with the RSN=0806, so that a new buffer could be "dynamically" allocated to the correct size, retrieve the larger record, throw away large buffer and return to the 32768 buffer size for all other instances.

Any feedback would be appreciated.
_________________
the devil is in the binary
↧

DFSORT/ICETOOL :: RE: Comparing Comp-3 fields with greater than equal to condition

July 13, 2018, 7:27 am
$
0
0
Author: Prateeksichem1
Posted: Fri Jul 13, 2018 7:57 pm (GMT 5.5)

Sorry couldn't get you the full details... hope this makes little sense.

Length of both the fields are 8 bytes (S9(13V99) Comp-3).

Code:
hex values:
File 2  (-5000.00)

----+----1-------------
*****************
 Y Y........................
4E4E00000000
08080000500D


File 1  (-6201.50)

-1----+--------
....................
00000210
0000605D

in Output file I want all the values from file 1 - which is less than -5000.00 (file 2).
Just comparing 2 negative Comp-3 values using Sort and write in the output with lesser value but getting all the values (not only the lesser one).
_________________
Thanks
↧
↧

DFSORT/ICETOOL :: RE: Comparing Comp-3 fields with greater than equal to condition

July 13, 2018, 7:57 am
$
0
0
Author: Arun Raj
Posted: Fri Jul 13, 2018 8:27 pm (GMT 5.5)

Whats your input, output RECFM,LRECL etc? Can you show some values that came into the output that you were not expecting (in hex). Use code tags (button) while posting data/code to preserve alignment.
_________________
Arun
----------------------------------------------------------------------------------------------------
Love is like an hourglass, with the heart filling up as the brain empties. -Jules Renard
↧

DFSORT/ICETOOL :: RE: Comparing Comp-3 fields with greater than equal to condition

July 13, 2018, 8:58 am
$
0
0
Author: sergeyken
Posted: Fri Jul 13, 2018 9:28 pm (GMT 5.5)

Prateeksichem1 wrote:
Sorry couldn't get you the full details... hope this makes little sense.

Length of both the fields are 8 bytes (S9(13V99) Comp-3)

Please, read about the syntax of COBOL first of all.

So far, period.
_________________
Tyrannosaurus-REXX
↧
Search

All Other Mainframe Topics :: RE: REXX CGI - Hello World

July 13, 2018, 9:19 am
$
0
0
Author: vasanthz
Posted: Fri Jul 13, 2018 9:49 pm (GMT 5.5)

Robert, Thanks for your response.
With your program, I get the below error
Code:
malformed header from script 'foo.rx': Bad header:   

Without the spaces, it was complaining about the Hello earlier

From USS, I am able to put an X(execute) infront of the script and it works ok. But when we invoke it from Web browser I get this error.
_________________
If you wear a sock inside out, the entire universe is wearing your sock except for you. **works only on socks, right legged only**
↧

DFSORT/ICETOOL :: RE: Comparing Comp-3 fields with greater than equal to condition

July 13, 2018, 9:20 am
$
0
0
Author: Robert Sample
Posted: Fri Jul 13, 2018 9:50 pm (GMT 5.5)

Quote:
(S9(13V99) Comp-3).
This is not COBOL syntax. S9(13)V99 COMP-3 would be valid COBOL syntax for an 8-byte packed decimal variable with 2 decimal digits. If you are going to refer (repeatedly) to a language, you should at least make sure you've got the syntax correct.

Quote:
JOINKEYS FILE=F1,FIELDS=(2417,3,A)
JOINKEYS FILE=F2,FIELDS=(0043,3,A)
REFORMAT FIELDS=(F1:1,2550,F2:1,200)
INCLUDE COND=(209,08,PD,LT,2555,08,PD)
SORT FIELDS=COPY
OUTREC FIELDS=(1:1,2550)
Where, exactly, in here do you tell Sort to exclude records from F1 with a value more than -5000 (or include those records with a value less than -5000)? If you do not specify the restriction to Sort, are you expecting the product to read your mind?
_________________
TANSTAAFL

The first rule of code reuse is that the code needs to be worth re-using.

"We should forget about small efficiencies, say about 97% of the time: premature optimization is the root of all evil." -- Donald Knuth
↧
↧

All Other Mainframe Topics :: RE: REXX CGI - Hello World

July 13, 2018, 9:21 am
$
0
0
Author: Robert Sample
Posted: Fri Jul 13, 2018 9:51 pm (GMT 5.5)

Hmmmm ... try taking the SAY ""; out, then.
_________________
TANSTAAFL

The first rule of code reuse is that the code needs to be worth re-using.

"We should forget about small efficiencies, say about 97% of the time: premature optimization is the root of all evil." -- Donald Knuth
↧

DFSORT/ICETOOL :: RE: Comparing Comp-3 fields with greater than equal to condition

July 13, 2018, 9:40 am
$
0
0
Author: RahulG31
Subject: Reply to: Comparing Comp-3 fields with greater than equal to condition
Posted: Fri Jul 13, 2018 10:10 pm (GMT 5.5)

Robert, 5000 is sample data only. He wants the 'less than' condition on any amount.

Prateek, please provide meaningful lengths/position of keys and data and a meaningful sample data for Sort card.

.
↧

SYNCSORT :: RE: Adding comments in Synsort

July 13, 2018, 9:46 am
$
0
0
Author: steve-myers
Posted: Fri Jul 13, 2018 10:16 pm (GMT 5.5)

Sergeyken - it appears to me the topic starter did RTFM. We do not know if it was read it correctly AND the manual was quoted correctly. But I think the real issue is comments can appear only between statements (or between the beginning of the data set and the first statement or (I'm guessing) between the last statement and the end of the data set). Anything else should be discussed with Syncsort support rather than this forum to either correct the product or (more likely) correct the manual.
↧
Viewing all 8500 articles
Browse latest View live
Search