Elixir:

Prepare Object-type Files for Transferring

Object-type code members with suffixes .FRM, .FNT, .JDL, .IMG are considered 'LPS-tape labeled type' and requires that the first record of the member be a special DJDE instruction record called a 'label record'.

All records following the first label-record must be editted to include a special character in column 129.

The data within this type of file is coded in binary and will not be readable as normal text.

Object-type files must be originally uploaded into a PDS with LRECL=128, then copied to a member on a PDS with an LRECL=129.
See Upload new/revised laser printer code member.

Using TSO to COPY the member to a PDS with LRECL=129

(a Roscoe IMPort-EXPort will corrupt the record lengths -even if using "AS IS"!)
  1. Sign onto TSO.
  2. Select option P for PDF (ISPF/program development facility).
  3. Select 3 - Utilities.
  4. Select 3 - Move/Copy.
  5. Select C to copy a member, and tab down to bottom section of the screen to enter the source PDS library name plus the member name within parenthesis ( ), and with single-quote marks ' ' around the whole line, such as:
    'Z01AF.DEV.OBXXX128(MEMNAME)'
    Then press <enter>.
  6. The next screen will show your COPY command at the top. Tab down to the middle section of the screen and enter the target 'PDS (member)' name.
    'Z01AF.TRSF.OBXXX129(MEMNAME)'
    Press <enter> and look in the top, right-hand corner of the screen for a message concerning the success of the copy.

Top

EDIT the 129-length member

EDIT the 129-length member, in TSO ISPF, to put an asterisk '*' in column 129 of EVERY data record, and then create the first label-record.

Use PF1 in TSO ISPF if you need further information about line edit commands
  1. Sign onto TSO.
  2. Select option P for PDF (ISPF/program development facility).
  3. Select 2 to create or change source data.
  4. Tab to the middle section of the screen, under "Other Partitioned or Sequential Data Set:" and enter the name of the PDS and the member which contains the object code that needs to be modified. (Be sure to use single-quote marks around the PDS name.
    'Z01AF.TRSF.OBXXX129(MEMNAME)'
  5. Use the line edit command i on the first line of ****** (top, left) to insert a record.
  6. Space over on the new line to column 129 and key an * there.
  7. Use the line edit command c on this same new line to set it up for the COPY/OVERLAY function to all records in the member.
  8. Then use the line edit command oo (lower-case alpha o) on the original first record of the object code AND on the last record of the object code. When you press <enter>, the overlay command will execute and copy the * in column 129 into all the records, without disturbing the existing record data.
  9. Now, return to the top of the member and use the i insert line command at the first ***** line to insert a new, first record.
  10. To create the LABEL-RECORD, Go to column 1 of the new, first record and key the following:
    $$DJDE FILE=(),END;
    (Do not put an * in column 129 of this DJDE record)
  11. PF3 to back-out with a SAVE of the member changes. Type CANCEL at the home command line if you do NOT want to SAVE.

Top

© 2008 by the Rector and Visitors of the University of Virginia.

The information contained on the University of Virginia’s Department of Information Technology and Communication (ITC) website is provided as a public service with the understanding that ITC makes no representations or warranties, either expressed or implied, concerning the accuracy, completeness, reliability or suitability of the information, including warrantees of title, non-infringement of copyright or patent rights of others. These pages are expected to represent the University of Virginia community and the State of Virginia in a professional manner in accordance with the University of Virginia’s Computing Policies.