설명

IncrementalMode=1로 "메가 슬롯" 실행 파일을 호출합니다.

기고자: Michael Bussieck, 2024년 1월

소형 모델 유형 :메가 슬롯

카테고리 : 메가 슬롯 테스트 라이브러리

메인 파일 : gamsincr.gms

$title 메가 슬롯 증분 모드 테스트(GAMSINCR,SEQ=952)

$onText
IncrementalMode=1로 "메가 슬롯" 실행 파일을 호출합니다.

기고자: Michael Bussieck, 2024년 1월
$offText

$call gamslib -q 1 
$call.checkErrorLevel 메가 슬롯 tnsport a=c dumpopt=22 lo=2
$존재하지 않는 경우 trnsport.dmp16 $trnsport.dmp16을 기대하는 것을 중단합니다.
$만약 trnsport.dmp17이 존재한다면 $abort는 trnsport.dmp17을 기대하지 않습니다.
$onEcho > trnsport.dmp
세트
   i '통조림 식물' / 시애틀, 샌디에이고 /
   j 'markets' / 뉴욕, 시카고, 토피카 /;
$offEcho

$dExist 스크래치가 아닌 경우 $call mkdir 스크래치
* 처음부터 좋은 매개변수 파일을 준비하세요.
$call.checkErrorLevel 메가 슬롯 trnsport lo=%메가 슬롯lo% procdir=scratch gdx=ref > %system.nullFile%
$call.checkErrorLevel 메가 슬롯 tnsport lo=%메가 슬롯lo% procdir=scratch > %system.nullFile%

$call cat 스크래치/gmsprm* > pf.txt
$echo 입력=trnsport.dmp >> pf.txt
$echo pf.txt > stdin.txt

$세트컨트 1
$라벨 l1
$eval cnt %cnt%+1
$call cat 스크래치/gmsprm* > pf%cnt%.txt
$echo 입력=trnsport.dmp%cnt% >> pf%cnt%.txt
$echo pf%cnt%.txt >> stdin.txt
$%cnt%==16이 아닌 경우 $goTo l1
$echo gdx=incr.gdx >> pf%cnt%.txt
$echo 중지 >> stdin.txt
$call.checkErrorLevel은 아무 것도 게임하지 않음 IncrementalMode=1 < stdin.txt > %system.nullFile%

$onEchoV > checkrc.gms
스칼라 RC /
$include %fnrc%
/;
abort$rc '예기치 않은 반환 코드';
$offEcho

$call.checkErrorLevel 메가 슬롯 checkrc lo=%메가 슬롯lo% --fnrc=pf.txt.rc
$세트컨트 1
$라벨 l2
$eval cnt %cnt%+1
$call.checkErrorLevel 메가 슬롯 checkrc lo=%메가 슬롯lo% --fnrc=pf%cnt%.txt.rc
$%cnt%==16이 아닌 경우 $goTo l2
$call.checkErrorLevel gdxdiff ref.gdx incr.gdx > %system.nullFile%