NMOD - Modify remote file attributes

The macro NMOD can be used to modify the attributes of a file in an FT partner system. The functionality corresponds to that of the command MODIFY-REMOTE-FILE-ATTRIBUTES.

Format of the macro NMOD (LIST format/default format)

Name	Operation	Operand
[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}]

Name	Operation	Operand
		[,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}]

The operands AFPASS, ATAD and AUPASS are used to set the coding type of the file password (FPASS), the transfer admission (TAD) and the user password (UPASS). The operands AFPASS, ATAD and AUPASS can have the value GRAPHIC or OCTET.

With GRAPHIC, the entry for the corresponding operand is interpreted as a printable character, and will be converted during transfer to a system which does not use EBCDIC. With OCTET, it is interpreted as binary information and will not be converted.

Format of the macro NMOD (DSECT format)

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

The prefix xxx (default value YNU) may be up to 3 characters long. It must generate names which are permitted in ASSEMBLER. The following ASSEMBLER instructions are generated:

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   *-xxx.NMOD

Meaning of the fields

The meaning of the parameters in the macro correspond to the meaning of the parameters in the command MODIFY-REMOTE-FILE-ATTRIBUTES. Please refer to the corresponding command description in the manual "openFT (BS2000) - Command Interface ".

Operand (L format)	Address field (D format)	Meaning in command
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	Return value of the call
AFPASS	APAS	Coding of the FPASS (GRAPHIC or OCTET)
ATAD	ATAD	Coding of the TAD (GRAPHIC or OCTET)
AUPASS	AUPA	Coding of the UPASS (corresponding to GRAPHIC or 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	(Type of return code output (old/new))1

¹Depending on the value of the VERSION operand, the FUNCTION INTERFACE VERSION NUMBER is set in the header FHDR.