Bonjour, (I am a ForEver Beginner with DS and all those 3 Peer Focuses and friends)
0(INF32073) ERREUR A OU PRES DE LA LIGNE 56 DANS LA PROCEDURE CHECX21 FOCEXEC *
(FOC036) AUCUNE DONNEE TROUVEE POUR LE FICHIER FOCUS APPELE FOCSORT
This is the message I get when working on DS and Calling a MVS Focexec Through EXEC CHECX20 ECHO = ALL , etc .../...
This Good Old FocSort is playing tricks, to me !!!, while we've been friends for Decades ...
? MVS DDNAME FOCSORT, in the MVS CHECX20, gives me no indication of Allocation of any kind.

And the object of the title is the link with IF RECORDLIMIT EQ 9999 :
1) When this line is there, everything is all right (240 lines in the internal matrix)
2) When this line is not there, I get the message (While FocSort has no reason to be different of case 1) )

This is when I love (and hate) Focus, who is playing with my nerves (Nothing personel, there, He does it with everyone)
More seriously : Does anyone Have an idea about that ?

Cordially and Focusely

This message has been edited. Last edited by: Kerry,

I assume the english version of the errors are:

>>? 32073

(INF32073) ERROR AT OR NEAR LINE %1 IN PROCEDURE %2
An error has occured parsing a procedure.
>>? 36

(FOC036) NO DATA FOUND FOR THE FOCUS FILE NAMED:
Either data cannot be located for the FOCUS file, or access is not
allowed.  If data cannot be located, a USE command may be needed.
>>

Does the procedure CHECX20 work if run on MVS ?

What is on line or near 56 of CHECX21 ?

Bonjour,
CHECX20 that contains EX CHECX21 works fine on Stand Alone MVS Focus.
It also works fine when called by DS, when CHECX21 (on MVS) receives the parameter &RECLIM = 999.
On the opposite, it issues the Message when &RECLIM is 9999999
As you can see beyond, Line 56 is END
Cordially and Focusely.

EDIT mvs_focexec_pds(CHECX21) - 01.05
Command ===>
000046 -IF &RECLIM GE 99999 THEN GOTO FSELRECLIM ;
000047 IF RECORDLIMIT EQ &RECLIM
000048 -FSELRECLIM
000049 -*
000050 -IF &INCLCOND EQ '*' THEN GOTO FSELINCLCOND ;
000051 -INCLUDE &INCLCOND
000052 -FSELINCLCOND
000053 -*
000054 ON TABLE HOLD AS &FICSOR
000055 -*
000056 END

The question begs, what is being allocated for focsort, and temp workspace when you call from DS.


And



OMG , you using PC Focus, or Focus Six, the reason WF 6 was skipped, wow.