Z-MOD27

This document covers the following topics:

Description

Modify the description, keywords, writer and title of a reference document.

Parameters

Parameter Format In Out Remarks
Return-code N2 O X Input -1: no ET.
Cabinet A8 R   The cabinet in which the reference document is stored.
Password A8 R   The password of the above cabinet.
Ref-document-name A32 R*   The name of the reference document to be modified. Either Ref-document-name or ISN, not both.
ISN P10 R*   The ISN of the reference document to be modified. Either ISN or Ref-document-name, not both.
Description A60/1:4 O   A brief description for the reference document. If you have not specified the Ref-document-name, you must specify the first line of the description.
Keywords A15/1:6 O   Keywords are helpful later when you search for an object.
Title A60 O   The title of the work.
Writer A60 O   The writer of the work.

Return Codes

00 Success
02 Invalid cabinet name or - in batch mode only - locked cabinet
03 Password incorrect
04 ISN was not found
06 TRS could not be invoked
08 Supply either ISN or name, not both
09 ISN does not point to a reference document
10 Function not valid for a system folder
51 Invalid name
53 Requested object does not exist
54 At least one keyword was invalid
90 Reference document must have a name or a description

Subprograms

Z-120
Z-122
Z-123
Z-147
Z-161
Z-175
Z-1200&0

Example

0010 DEFINE DATA
0020 *
0030 LOCAL
0040 *
0050 1 RETURN-CODE               (N2)
0060 1 CABINET                   (A8)
0070 1 PASSWORD                  (A8)
0080 1 REF-DOCUMENT-NAME         (A32)
0090 1 ISN                       (P10)
0100 1 DESCRIPTION               (A60/1:4)
0110 1 KEYWORDS                  (A15/1:6)
0120 1 TITLE                     (A60)
0130 1 WRITER                    (A60)
0140 *
0150 END-DEFINE
0160 *
0170 INPUT (IP=OFF AD=A'_')
0180         'Cabinet       ' CABINET
0190      /  'Password      ' PASSWORD (AD=N)
0200      /  'Ref. Document ' REF-DOCUMENT-NAME
0210      // 'Description   ' / DESCRIPTION (*)
0220      // 'Keywords      ' / KEYWORDS (1:3) / KEYWORDS (4:6)
0230      // 'Title         ' / TITLE
0240      /  'Writer        ' / WRITER
0250 *
0260 IF   REF-DOCUMENT-NAME NE ' '
0270      CALLNAT 'Z-MOD27'
0280           RETURN-CODE
0290           CABINET
0300           PASSWORD
0310           REF-DOCUMENT-NAME
0320           ISN
0330           DESCRIPTION (*)
0340           KEYWORDS (*)
0350           TITLE
0360           WRITER
0370      IF   RETURN-CODE EQ 0
0380           WRITE 'Reference document was modified'
0390      ELSE
0400           WRITE 'Reference document cannot be modified' RETURN-CODE
0410      END-IF
0420 END-IF
0430 *
0440 END