Can I use a symoblic in a LABEL?? Such as -
LABEL&NUM DD DSN=FILE.NAME
The above example is giving me 'INVALID LABEL' error message. Just wondering if this can be accomplished.
We have figured out the problem. I was looking at the SAS code that we had on the mainframe, not what he downloaded. Apparantly a line was added when he downloaded his file
IF CNT GT 0 THEN DO;
ARRAY IND{*} $ 1 IND01-IND99;
ARRAY CD{*} $ 2 CD01-CD99;
ARRAY DT{*} $ 8...
Position 427 is the beginning of the variable part of my record. I notice in my COBOL defintion for one of my OCCURS clause it says 'OCCURS 0 - 30 times' but the SAS is set up for 99 OCCURANCES. Should the SAS be changed to 30 OCCURANCES? The other OCCURS clause and the SAS definiton have the...
Our system is providing the user with a output file (VB). I have mapped this file and record in question against the COBOL copybook in fileaid and all the fields are in the correct position. We have also provided them with the SAS statements for their use but I guess the SAS has a bug in it...
OK. Thanks. It just looked weird as I thought the definition was wrong. I will look elsewhere in the SAS statements to see why it is not working correctly.
I am looking at some SAS statements. I have a field in COBOL defined as PIC S9(9)V99 COMP-3.
The same field is defined as PD6.2 in SAS.
I am thinking this definition is wrong and the SAS should say PD5.2
SELECT COUNT(*)
FROM TABLE1 B,
TABLE2 A
WHERE B.FIELD1 = 44441 AND B.FIELD2 = A.FIELD2
GROUP BY A.FIELD3
This query is pulling back the following info currently -
12
27
46
1
2
1
2...
I tried it with no quotes and am getting the same results. Here is the latest code I am executing...
/* REXX EXEC */
CALL OUTTRAP 'OUT.'
"LISTCAT LEV(XXXX.XXXXDS47.IOFLIST) ALL"
CALL OUTTRAP 'OFF'
DO I = 1 TO OUT.0
SAY OUT.I
SELECT
WHEN...
I am displaying OUT.I and am getting the following...
ENTRY MY.DSN. NOT FOUND+
** VSAM CATALOG RETURN CODE IS 8
** MY.DSN NOT LISTED
*** LASTCC=4
On the first display line, why does my DSN have a '.' at the end 'MY.DSN.'??
Thanks for all your help. I added '/* REXX EXEC */' to the beginning of my code and the program ran but it keeps falling down to the WHEN OTHERWISE. I will debug this in the morning. Thanks again!
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.