Hello Dick,
I got new issues.
I have 4 tables named FED.FOC.FSD00003.FSB03P1
FED.FOC.FSD00003.FSB03P2
FED.FOC.FSD00003.FSB03P3
FED.FOC.FSD00003.FSB03P4
They all have same TSO master file name as
FSM0003IBut for table FED.FOC.FSD00099.FSFSTAT matches the master file name as
FSM0099P(1)If my code like
//
FSM0099P DD DSN=FED.FOC.FSD00099.FSFSTAT,DISP=SHR
TABLE FILE
FSM0099PPRINT ........
END
The program works fine
(2)If I am working on another 4 tables as follows:
//FSB03P1 DD DSN=FED.FOC.FSD00003.FSB03P1,DISP=SHR
//FSB03P2 DD DSN=FED.FOC.FSD00003.FSB03P2,DISP=SHR
//FSB03P3 DD DSN=FED.FOC.FSD00003.FSB03P3,DISP=SHR
//FSB03P4 DD DSN=FED.FOC.FSD00003.FSB03P4,DISP=SHR
//FSFSTAT DD DSN=FED.FOC.FSD00099.FSFSTAT,DISP=SHR (//FSFSTAT does not work too)
//FAM13 DD DSN=FDX1701.FAM13P.MONDATA,DISP=OLD
//OFFLINE DD SYSOUT=X
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
USE FSB03P1 FOCUS * AS
FSM0003I FSB03P2 FOCUS * AS
FSM0003I FSB03P3 FOCUS * AS
FSM0003I FSB03P4 FOCUS * AS
FSM0003I END
JOIN CLEAR *
END
TABLE FILE FSM0003I
PRINT LOCNAM REGION DISTRICT LOCTYPE ENTSYSID
BY REGION NOPRINT
BY DISTRICT NOPRINT
ON TABLE SAVE AS FAM13 FORMAT ALPHA
END
FIN
I got message "NO DATA FOUND
FSM0003I"
So, I think my HOLDMAST FILE got an issue. Am I right?
By the way, I am working on this for loooong time already.
Thanks lots.
Helen