Version (internal function) - Revision history

Gordon.dye at 15:23, 30 June 2019

2019-06-30T15:23:33Z

← Older revision		Revision as of 15:23, 30 June 2019
Line 1:		Line 1:
	~~For disambiguation purposes, see also~~ [[~~Version (disambiguation)~~]].		The '''Version''' [[internal function]] affects an open [[internal]] data file. It will return the version of that file. It can also be used to set the version.

	~~VERSION(<~~file ~~number>[,<new version>])~~		===Syntax===
			To read the version of an open internal file:

	The '''Version''' [[internal function]] returns or optionally resets a file version number for the opened file number specified. This feature allows you to Verify that data files have been updated to match the current program release.		VERSION(<file_handle>)

	~~The file-number parameter represents~~ the ~~number~~ of an open internal file~~. If the file is not an internal file or the file is a key file opened as an internal file, a [[0721]] (I/O conflicts with OPEN) error will result.~~		To set the version of an open internal file:

	~~The new version parameter can be used to reset the version number of the specified~~ file~~. When~~ new-version ~~is specified, the file must be opened for OUTIN or a [[0721~~]~~] error will result. The new-version number is not written to the disk until the file is closed. The new-version specified can be any number from 0 to 32000.~~		VERSION(<file handle>[,new-version])

	~~File VERSION capacity was increased~~ to ~~allow use~~ of ~~dates as~~ version ~~numbers~~.		[[Image:Version.png]]

			The file-handle parameter is the number of an open internal file. If the file is not an internal file or the file is a key file opened as an internal file, a [[0721]] (I/O conflicts with OPEN) error will result.

			The new-version parameter can be used to reset the version number of the specified file. When new-version is specified, the file must be opened for OUTIN or a [[0721]] error will result. ''The new-version number is not written to the disk until the file is closed.'' The new-version specified can be any number from 0 to 32000.<br><br>

	The VERSION function is designed to be used in conjunction with the VERSION= parameter for OPEN internal statements. VERSION= should be used to set the version number on newly created data files and to trap situations where the data files are not current for the program being run. This would stop the program from processing faulty data before any data could be processed. It is up to the programmer to maintain the version numbers in the programs.		The VERSION function is designed to be used in conjunction with the VERSION= parameter for OPEN internal statements. VERSION= should be used to set the version number on newly created data files and to trap situations where the data files are not current for the program being run. This would stop the program from processing faulty data before any data could be processed. It is up to the programmer to maintain the version numbers in the programs.

	Not every program should check for version numbers, as every time the version changed, all the VERSION= parameters would need to be changed. Posting and file maintenance programs would be the most likely candidates to use VERSION=.		Not every program should check for version numbers, as every time the version changed, all the VERSION= parameters would need to be changed. Posting and file maintenance programs would be the most likely candidates to use VERSION=.<br><br>

	The VERSION function is intended to be used in a "data file ~~update~~ program." The ~~update~~ program should contain code to convert each successive version. For example:		The VERSION function is intended to be used in a "data file format change program." The change program should contain code to convert each successive version. For example:

	00100 OPEN #1:"NAME=CUSTOMER.DAT",INTERNAL,OUTIN		00100 OPEN #1:"NAME=CUSTOMER.DAT",INTERNAL,OUTIN
	00110 IF VERSION(1)=1 THEN ! record length increased for C 5		00110 IF VERSION(1)=1 THEN ! record length increased for C 5
	00120 CLOSE #1:		00120 CLOSE #1:
	00130 EXECUTE "COPY CUSTOMER.DAT WORK[WSID] -160 -N"		00130 EXECUTE "COPY CUSTOMER.DAT WORK[WSID] -160 -N"
	00140 EXECUTE "FREE CUSTOMER.DAT -N"		00140 EXECUTE "FREE CUSTOMER.DAT -N"
	00150 EXECUTE "RENAME WORK[WSID] CUSTOMER.DAT -N"		00150 EXECUTE "RENAME WORK[WSID] CUSTOMER.DAT -N"
	00160 OPEN #1:"NAME=CUSTOMER.DAT",INTERNAL,OUTIN		00160 OPEN #1:"NAME=CUSTOMER.DAT",INTERNAL,OUTIN
	00170 LET VERSION(1,2) ! update to version 2		00170 LET VERSION(1,2) ! update to version 2
	00180 LET CUSTOMER=1 ! Changed flag		00180 LET CUSTOMER=1 ! Changed flag
	00190 END IF		00190 END IF
	00200 IF VERSION(1)=2 THEN ! change field length		00200 IF VERSION(1)=2 THEN ! change field length
	00210 RESTORE #1:		00210 RESTORE #1:
	00220 FORM1: POS 80,C 10,C 3 ! C 3 was C 5		00220 FORM1: POS 80,C 10,C 3 ! C 3 was C 5
	00230 FORM2: POS 80,C 12,C 3		00230 FORM2: POS 80,C 12,C 3
	00240 LOOP1: READ #1,USING FORM1: A$,B$ EOF ENDLOOP1		00240 LOOP1: READ #1,USING FORM1: A$,B$ EOF ENDLOOP1

	00250 REWRITE #1,USING FORM 2: A$,B$		00250 REWRITE #1,USING FORM 2: A$,B$
	00260 GOTO LOOP1		00260 GOTO LOOP1
	00270 ENDLOOP1: VERSION(1,3) ! update complete to version 3		00270 ENDLOOP1: VERSION(1,3) ! update complete to version 3
	00280 LET CUSTOMER=1		00280 LET CUSTOMER=1
	00290 END IF		00290 END IF
	00300 IF CUSTOMER THEN PRINT "CUSTOMER.DAT UPDATED TO CURRENT VERSION."		00300 IF CUSTOMER THEN PRINT "CUSTOMER.DAT UPDATED TO CURRENT VERSION."

John at 12:04, 28 May 2014

2014-05-28T12:04:25Z

← Older revision		Revision as of 12:04, 28 May 2014
Line 1:		Line 1:
	For disambiguation purposes, see also [[Version (~~Command~~)]].		For disambiguation purposes, see also [[Version (disambiguation)]].

	VERSION(<file number>[,<new version>])		VERSION(<file number>[,<new version>])

John: moved Version to Version (internal function)

2014-05-28T12:03:22Z

moved Version to Version (internal function)

← Older revision	Revision as of 12:03, 28 May 2014
(No difference)

John at 12:03, 28 May 2014

2014-05-28T12:03:00Z

← Older revision		Revision as of 12:03, 28 May 2014
Line 3:		Line 3:
	VERSION(<file number>[,<new version>])		VERSION(<file number>[,<new version>])

	The ~~VERSION~~ function returns or optionally resets a file version number for the opened file number specified. This feature allows you to Verify that data files have been updated to match the current program release.		The '''Version''' [[internal function]] returns or optionally resets a file version number for the opened file number specified. This feature allows you to Verify that data files have been updated to match the current program release.

	The file-number parameter represents the number of an open internal file. If the file is not an internal file or the file is a key file opened as an internal file, a [[0721]] (I/O conflicts with OPEN) error will result.		The file-number parameter represents the number of an open internal file. If the file is not an internal file or the file is a key file opened as an internal file, a [[0721]] (I/O conflicts with OPEN) error will result.

Laura at 03:22, 22 May 2014

2014-05-22T03:22:44Z

← Older revision		Revision as of 03:22, 22 May 2014
Line 1:		Line 1:
	For disambiguation purposes, see also [[Version (Command)]].		For disambiguation purposes, see also [[Version (Command)]].

			VERSION(<file number>[,<new version>])

	The VERSION function returns or optionally resets a file version number for the opened file number specified. This feature allows you to Verify that data files have been updated to match the current program release.		The VERSION function returns or optionally resets a file version number for the opened file number specified. This feature allows you to Verify that data files have been updated to match the current program release.

	The ~~filenbr~~ parameter represents the number of an open internal file. If the file is not an internal file or the file is a key file opened as an internal file, a 0721 (I/O conflicts with OPEN) error will result.		The file-number parameter represents the number of an open internal file. If the file is not an internal file or the file is a key file opened as an internal file, a [[0721]] (I/O conflicts with OPEN) error will result.

	The new version parameter can be used to reset the version number of the specified file. When ~~newversion~~ is specified, the file must be opened for OUTIN or a 0721 error will result. The ~~newversion~~ number is not written to the disk until the file is closed. The ~~newversion~~ specified can be any number from 0 to 32000.		The new version parameter can be used to reset the version number of the specified file. When new-version is specified, the file must be opened for OUTIN or a [[0721]] error will result. The new-version number is not written to the disk until the file is closed. The new-version specified can be any number from 0 to 32000.

	File VERSION capacity was increased to allow use of dates as version numbers.		File VERSION capacity was increased to allow use of dates as version numbers.

John: moved VERSION to Version

2014-02-24T18:25:25Z

moved VERSION to Version

← Older revision	Revision as of 18:25, 24 February 2014
(No difference)

Laura at 20:12, 16 October 2013

2013-10-16T20:12:20Z

← Older revision		Revision as of 20:12, 16 October 2013
Line 1:		Line 1:
			For disambiguation purposes, see also [[Version (Command)]].

	The VERSION function returns or optionally resets a file version number for the opened file number specified. This feature allows you to Verify that data files have been updated to match the current program release.		The VERSION function returns or optionally resets a file version number for the opened file number specified. This feature allows you to Verify that data files have been updated to match the current program release.

Mikhail.zheleznov: *

2012-01-18T16:56:38Z

← Older revision		Revision as of 16:56, 18 January 2012
Line 37:		Line 37:

	The above code would convert a data file from whatever version the data file was to the most current. Whenever a file layout is changed, you would simply add the conversion routine to the end of this program.		The above code would convert a data file from whatever version the data file was to the most current. Whenever a file layout is changed, you would simply add the conversion routine to the end of this program.

			<noinclude>
			[[Category:Internal Functions]]
			</noinclude>

Mikhail.zheleznov: edit

2012-01-12T10:53:45Z

edit

New page

The VERSION function returns or optionally resets a file version number for the opened file number specified. This feature allows you to Verify that data files have been updated to match the current program release.

The filenbr parameter represents the number of an open internal file. If the file is not an internal file or the file is a key file opened as an internal file, a 0721 (I/O conflicts with OPEN) error will result.

The new version parameter can be used to reset the version number of the specified file. When newversion is specified, the file must be opened for OUTIN or a 0721 error will result. The newversion number is not written to the disk until the file is closed. The newversion specified can be any number from 0 to 32000.

File VERSION capacity was increased to allow use of dates as version numbers.

The VERSION function is designed to be used in conjunction with the VERSION= parameter for OPEN internal statements. VERSION= should be used to set the version number on newly created data files and to trap situations where the data files are not current for the program being run. This would stop the program from processing faulty data before any data could be processed. It is up to the programmer to maintain the version numbers in the programs.

Not every program should check for version numbers, as every time the version changed, all the VERSION= parameters would need to be changed. Posting and file maintenance programs would be the most likely candidates to use VERSION=.

The VERSION function is intended to be used in a "data file update program." The update program should contain code to convert each successive version. For example:

00100 OPEN #1:"NAME=CUSTOMER.DAT",INTERNAL,OUTIN
00110 IF VERSION(1)=1 THEN ! record length increased for C 5
00120 CLOSE #1:
00130 EXECUTE "COPY CUSTOMER.DAT WORK[WSID] -160 -N"
00140 EXECUTE "FREE CUSTOMER.DAT -N"
00150 EXECUTE "RENAME WORK[WSID] CUSTOMER.DAT -N"
00160 OPEN #1:"NAME=CUSTOMER.DAT",INTERNAL,OUTIN
00170 LET VERSION(1,2) ! update to version 2
00180 LET CUSTOMER=1 ! Changed flag
00190 END IF
00200 IF VERSION(1)=2 THEN ! change field length
00210 RESTORE #1:
00220 FORM1: POS 80,C 10,C 3 ! C 3 was C 5
00230 FORM2: POS 80,C 12,C 3
00240 LOOP1: READ #1,USING FORM1: A$,B$ EOF ENDLOOP1

00250 REWRITE #1,USING FORM 2: A$,B$
00260 GOTO LOOP1
00270 ENDLOOP1: VERSION(1,3) ! update complete to version 3
00280 LET CUSTOMER=1
00290 END IF
00300 IF CUSTOMER THEN PRINT "CUSTOMER.DAT UPDATED TO CURRENT VERSION."

The above code would convert a data file from whatever version the data file was to the most current. Whenever a file layout is changed, you would simply add the conversion routine to the end of this program.