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
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