(Type: immediate)
<$.DISK option>
── $.DISK ─┬─<file title>─┬────────────────────────────────────────────┤
└─<intname>────┘The $.DISK option tells the PATCH utility to get input from the specified file. This option performs tasks similar to the tasks performed by the $.FILE option, but with the following exceptions:
-
The input from the specified file cannot contain $.DISK, $.DISK $,$.PATCHDECK, or $.FILE options.
-
Mark field information from the input file is preserved even if the $.MARK option is SET. The mark information from the input file is used only if the input file records are long enough to contain mark information.
If the $.COBOL85 option is SET, the record must contain at least 80 characters for mark field information to be retained. The mark information is taken from columns 73 through 80.
In all other cases, the mark information is taken from columns 81 through 90 of the record, and all records must be a minimum of 90 characters in length. Records that are not at least 90 characters long have a blank value in the mark field after the patch is merged.
Other $. options can appear on the same $. record after the options $.DISK, $.DISK $, $.FILE, and $.PATCHDECK.
The files used in the $.DISK, $.DISK $, $.FILE, and $.PATCHDECK options can be file-equated in the file equation section of the input. The internal name must consist of only one node—that is, no slashes (/) can be used.
Example
The following example tells the PATCH utility to get input from the file NEW/EMPLOYEE/NUMBERS:
$.DISK NEW/EMPLOYEE/NUMBERS
The following WFL job shows a PATCH utility run that file-equates the file used in the $.DISK option:
BEGIN JOB PATCHER; RUN SYSTEM/PATCH; FILE TAPE(TITLE = SYMBOL/SOURCE ON PACK01); FILE MYPATCH(TITLE = PATCH/SOURCE/23 ON PACK02); DATA CARD $#PATCH SEPARATOR CARD 1 $ SET LIST MERGE NEW $#PATCH SEPARATOR CARD 2 $.DISK MYPATCH COMPARE ? END JOB.
