NMOD - Ferne Dateiattribute ändern

Mit dem Makroaufruf NMOD können Sie Attribute einer Datei in einem FT-Partnersystem ändern. Der Funktionsumfang entspricht dem Kommando MODIFY-REMOTE-FILE-ATTRIBUTES.

Format des Makros NMOD (LIST-Form/Standard-Form)

Name	Operation	Operanden
[name]	NMOD	[MF=L,]  PARTNER=adr  [,FILE={*NOTSP / adr}]  [,FPASS={*NONE / adr}]  [,TAD={*NONE / adr}] /      [,UUSER=adr]      [,UACC={*NONE / adr}]      [,UPASS={*NONE / adr}]  [,NEWNAME={*SAME / adr}]  [,FAVAIL={[*]UNCHG / [*]IMMED / [*]DEFER}]  [,STORACC={*UNCHG / adr}]  [,FFSIZE={*UNCHG / int}]  [,LQUAL={*UNCHG / adr}]  [,MSGINS={*NONE / adr}]  [,AFPASS={[*]GRAPH / [*]OCTET}]  [,ATAD={[*]GRAPH / [*]OCTET}]  [,AUPASS={[*]GRAPH / [*]OCTET}]  [,FNCMODE = {TRANS / CHAR}]  [,ACCMOD={[*]UNCHG / [*]REPL}]      [,AREADF={[*]NO / [*]YES}]      [,AINSU={[*]NO / [*]YES}]      [,AREPLF={[*]NO / [*]YES}]      [,AEXTDF={[*]NO / [*]YES}]      [,AERAU={[*]NO / [*]YES}]      [,AREADA={[*]NO / [*]YES}]      [,ACHNGA={[*]NO / [*]YES}]      [,ADELF={[*]NO / [*]YES}]  [,Version={1 / 2}]

Mit den Operanden AFPASS, ATAD und AUPASS legen Sie die Codierungsart des Dateikennworts (FPASS), der Zugangsberechtigung (TAD) und des Benutzerkennworts (UPASS) fest. Die Operanden AFPASS, ATAD und AUPASS können jeweils die Werte GRAPHIC oder OCTET annehmen.

Mit GRAPHIC wird die Angabe für den entsprechenden Operanden als abdruckbare Zeichen interpretiert und bei einer Übertragung auf ein System, das nicht EBCDIC benutzt, konvertiert. Mit OCTET wird sie als Binärinformation interpretiert und nicht konvertiert.

Format des Makros NMOD (DSECT-Form)

Name	Operation	Operanden
[name]	NMOD	MF=(D[,xxx]

Das Präfix xxx (Standardwert YNU) darf 1 bis 3 Zeichen lang sein. Er muss Namen erzeugen, die in ASSEMBLER erlaubt sind. Folgende ASSEMBLER-Instruktionen werden abgesetzt:

xxxNMOD  DSECT
xxxHMOD  FHDR  MF=(C,&P)
xxxPART  DS    A                    A(PARTNER-SYSTEM)
xxxPARTL DS    XL2                  L(PARTNER-SYSTEM)
xxxFILEL DS    XL2                  L(FILE-NAME)
xxxFILE  DS    A                    A(FILE-NAME)
xxxFPAS  DS    A                    A(FILE-PASSWORD)
xxxFPASL DS    XL2                  L(FILE-PASSWORD)
xxxTADL  DS    XL2                  L(TRANSFER-ADMISSION)
xxxTAD   DS    A                    A(TRANSFER-ADMISSION)
xxxUUS   DS    A                    A(USER-IDENTIFICATION)
xxxUUSL  DS    XL2                  L(USER-IDENTIFICATION)
xxxUACL  DS    XL2                  L(USER-ACCOUNT)
xxxUAC   DS    A                    A(USER-ACCOUNT)
xxxUPA   DS    A                    A(USER-PASSWORD)
xxxUPAL  DS    XL2                  L(USER-PASSWORD)
xxxNNAML DS    XL2                  L(NEW-NAME)
xxxNNAM  DS    A                    A(NEW-NAME)
xxxSTAC  DS    A                    A(STORAGE-ACCOUNT)
xxxSTACL DS    XL2                  L(STORAGE-ACCOUNT)
xxxLQFL  DS    XL2                  L(LEGAL-QUALIFICATION)
xxxLQF   DS    A                    A(LEGAL-QUALIFICATION)
xxxMSG   DS    A                    A(MESSAGE)
xxxMSGL  DS    XL2                  L(MESSAGE)
*
xxxIFILE DS    XL1                  FILE-NAME:     NOTSP
xxxIFFS  DS    XL1                  FUTURE-FILE-SIZE: UNCHG
xxxFFS   DS    XL4                  (FUTURE-FILE-SIZE)
*
xxxIFPAS DS    XL1                  FILE-PASSWORD: NONE
xxxITAD  DS    XL1                  TRANSFER-ADMISSION: NONE / PAR
xxxIUAC  DS    XL1                  USER-ACCOUNT:  NONE
xxxIUPA  DS    XL1                  USER-PASSWORD: NONE

*
xxxINNAM DS    XL1                  NEW-NAME: SAME
xxxISTAC DS    XL1                  STORAGE-ACCOUNT: UNCHG
xxxILQF  DS    XL1                  LEGAL-QUALIFICATION : UNCHG
xxxAVAIL DS    XL1                  FILE-AVAIL.: UNCHG/IMMED/DEFER
*
xxxACCES DS    XL1                  ACCESS-MODE: UNCHG / REPL
xxxAREAF DS    XL1                  READ-FILE:         NO / YES
xxxAINSU DS    XL1                  INSERT-DATA-UNIT:  NO / YES
xxxAREPF DS    XL1                  REPLACE-FILE:      NO / YES
*
xxxAEXTF DS    XL1                  EXTEND-FILE:       NO / YES
xxxAERAU DS    XL1                  ERASE-DATA-UNIT:   NO / YES
xxxAREAA DS    XL1                  READ-ATTRIBUTES:   NO / YES
xxxACHNA DS    XL1                  CHANGE-ATTRIBUTES: NO / YES
*
xxxADELF DS    XL1                  DELETE-FILE:       NO / YES
xxxAPAS  DS    XL1                  TYPE-FILE-PASSWORD: GRAPH/OCTET
xxxATAD  DS    XL1                  TYPE-TRANSFER-ADMS: GRAPH/OCTET
xxxAUPA  DS    XL1                  TYPE-USER-PASSWORD: GRAPH/OCTET
*
xxxFFSZH DS    XL4                  FUTURE FILE SIZE HIGH
xxxFFSZL DS    XL4                  FUTURE FILE SIZE LOW
xxxFNCM  DS    XL1                  FNCMODE = TRANS/CHAR
xxxLNMO  EQU   *-xxxNMOD

Bedeutung der Felder

Die Bedeutung der Parameter im Makroaufruf entspricht der Bedeutung der Parameter im Kommando MODIFY-REMOTE-FILE-ATTRIBUTES, beachten Sie daher bitte die entsprechende Kommandobeschreibung im Handbuch "openFT (BS2000) - Kommandoschnittstelle".

Operand (L-Form)	Adressfeld (D-Form)	Bedeutung im Kommando
PARTNER	PART	PARTNER-NAME
FILE	FILE	FILE-NAME
FPASS	FPAS	PASSWORD
TAD	TAD	TRANSFER-ADMISSION
UUSER	UUS	USER-IDENTIFICATION
UACC	UAC	ACCOUNT
UPASS	UPA	PASSWORD
NEWNAME	NNAM	NEW-NAME
FAVAIL	AVAIL	FILE-AVAILABILITY
STORACC	STAC	STORAGE-ACCOUNT
FFSIZE	FFS	FUTURE-FILE-SIZE
LQUAL	LQF	LEGAL-QUALIFICATION
MSGINS	MSG	Rückgabewert des Aufrufs
AFPASS	APAS	Codierung des FPASS (GRAPHIC oder OCTET)
ATAD	ATAD	Codierung der TAD (GRAPHIC oder OCTET)
AUPASS	AUPA	Codierung des UPASS (entsprechend GRAPHIC oder OCTET)
ACCMOD	ACCES	ACCESS-MODE
AREADF	AREAF	READ-FILE
AINSU	AINSU	INSERT-DATA-UNIT
AREPLF	AREPF	REPLACE-FILE
AEXTDF	AEXTF	EXTEND-FILE
AERAU	AERAU	ERASE-DATA-UNIT
AREADA	AREAA	READ-ATTRIBUTES
ACHNGA	ACHNA	CHANGE-ATTRIBUTES
ADELF	ADELF	DELETE-FILE
FNCMODE	FNCM	FNC-MODE
VERSION	FCTV	((Art der Returncode-Ausgabe (alt/neu))1

¹In Abhängigkeit vom Wert des Operanden VERSION, wird im Header FHDR die FUNCTION INTERFACE VERSION NUMBER gesetzt.