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
