|
Last change
on this file since 8 was 2, checked in by stevenhl, 8 years ago |
|
Import sources from cwmm-full.zip dated 2005-03-21
|
|
File size:
602 bytes
|
| Rev | Line | |
|---|
| [2] | 1 | /* */
|
|---|
| 2 | call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
|
|---|
| 3 | call SysLoadFuncs
|
|---|
| 4 |
|
|---|
| 5 | buildInclude="build.inc"
|
|---|
| 6 | DEF_LINE="BUILD_STRING = -Build "
|
|---|
| 7 |
|
|---|
| 8 | if stream(buildInclude, 'C','query exists')="" THEN
|
|---|
| 9 | '@echo 'DEF_LINE' 0 > 'buildInclude
|
|---|
| 10 |
|
|---|
| 11 | theLine=LINEIN(buildInclude)
|
|---|
| 12 | call stream buildInclude, 'C', 'close'
|
|---|
| 13 | buildNr=WORD(theLine, 4)
|
|---|
| 14 | IF buildNr="" THEN buildNr=0
|
|---|
| 15 | buildNr=buildNr+1
|
|---|
| 16 |
|
|---|
| 17 | SAY "New Build: "buildNr
|
|---|
| 18 | SAY VALUE("CWMMRELEASE", ,"OS2ENVIRONMENT")
|
|---|
| 19 | '@type NUL > 'buildInclude
|
|---|
| 20 | call LINEOUT buildInclude, DEF_LINE||buildNr||' '||DATE(E)
|
|---|
| 21 | call stream buildInclude, 'C', 'close'
|
|---|
| 22 | SAY
|
|---|
| 23 | Exit(0)
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
