Well, the LOADLIB members are going to be U 32760 (or less) for a library. Not sure if the PDS reload via IEBUPDTE will work.
Data files should reload with records broken every LRECL, unless they have Varible length fields with a 2 byte binary count ahead of the data. They are greatly helped by being a PS files and not a bunch of PDS members in one file. On Tue, Apr 20, 2021 at 6:59 AM Hilario Garcia <[email protected]> wrote: > > 554 / 5000 > Resultados de traducción > Hi Mike, Thank you very much for the information that you have sent me to > be able to recover files (mostly PDS) but there are also data files and PDS > LOADLIB. I'm going to get to work on it as you have indicated. The work is > very laborious and there are about 30 files with an undetermined number of > members, in addition to some files with data. I suppose that there is no > other way to recover the data since the format and the method in which it > was downloaded from Z / OS is unknown. Thank you very much in advance. Kind > Regards Hilario > > El mar, 20 abr 2021 a las 6:20, Mike Schwab (<[email protected]>) > escribió: > > > On Mon, Apr 19, 2021 at 7:23 AM Joe Monk <[email protected]> wrote: > > > > > > > > So, now you know what you have. An ISPF panel library, that was > > > unloaded via IEBCOPY, then IND$FILE to a PC without specifying CRLF > > then > > > back to the mainframe. > > > > > > Joe > > > > > Well, since this is going to be a text only, FB 80 PDS(e) file, open > > with a text editor such as NOTEPAD, NOTEPAD++, WORD, etc.. > > Save as to a new name as plain text with TXT suffix so you don't lose > > the original file. > > Copy this job to the top down to the ./ ADD command. > > > > https://www.ibm.com/docs/en/zos/2.4.0?topic=examples-example-1-place-two-procedures-in-sys1proclib#u1438 > > Select and delete a block of non- text data, hope you see a text name > > to put in a line with ./ ADD NAME=, use AA001 if you don't find the > > name. > > G through the text and insert line splits as needed. Some lines need > > leading blanks. > > When you get to the next block of non-text, you highlight and delete > > the non text, and put in the ./ ADD NAME= with the name or AA002 if > > not found. > > Repeat to the end of the file. > > Put in the ./ ENDUP card and save final results. > > Upload to to MVS / z/OS with ASCII CFLF. FB 80 3120. > > Create PDS with FB 80 and twice the space of the upload with directory > > space, put name in JCL. > > Copy in a site specific jobcard to the top and run to create a PDS > > with the names you saved or AA001-AA999. > > You will have to review to figure out the member names if you didn't > > find it in the PDS unload text. > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to [email protected] with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
