스크린 코볼

[신규 화면 구성 시]

1.ddl 정의
1)파일수정 : tedit $data12.oprsrc.opmddls
2)ddl 컴파일 : ddl /in opmddls/

2.화면
1)기본,상세 화면 수정: $data12.oprsrc.opmscrns
2)컴파일 : o $data12.oproby.opmscrnc

3.스크린코볼 소스 만들기(ex)손보 I/F LOG FILE 조회 클라이언트=REQUESTER)
1)소스 : $DATA12.OPRSRC.OLGSONRS
2)컴파일 : $DATA12.OPROBY.OLGSONRC

4.서버 만들기(ex)손보 I/F LOG FILE 조회 서버)
1)소스 : $DATA12.OPRSRC.OLGSONSS
2)컴파일 : $DATA12.OPROBY.OLGSONSC

4.서버등록
pathcom $lppm
status server *
set server like OPMLOGSS
set server program \AUTDM01.$DATA12.OPROBJ.OLGSONSO
set server NUMSTATIC 0
add server OLGSONSS

[ARS 0059 전문 추가 시]
$data12.oprsrc.olarstss 수정
컴파일 : o $data12.oproby.olarstsc
OBJECT 생성 확인 : $data12.oprobj.olarstso
참고로 scrn 화면에서 확인 할 때 프로세스가 $data12.oprobj.olarstso 오픈함

[참고 : 기존 소스 수정 시 : 서버 죽여 놓고 컴파일 하기]
1)서버컴파일 죽여놓기 전에 #pop pathcom
2)freeze 2번
freeze OPMLOGSS
freeze OPMLOGSS
3)stop OPMLOGSS
4)thaw OPMLOGSS

[참고메뉴얼]

Pathway/iTS SCREEN COBOL Reference Manual.pdf
Pathway/iTS TCP and Terminal Programming Guide.pdf


[서버 log 파일 define 추가 또는 변경]

INFO SERVER OANSIMSS
ALTER SERVER OANSITSS,DEFINE =LOG2,CLASS MAP,FILE \AUTDM01.$DATA17.SAFEDAT2.ANSIMMDD
ALTER SERVER OANSITSS,DEFINE =LOG3,CLASS MAP,FILE \AUTDM01.$DATA17.SAFEDAT3.ANSIMMDD
INFO SERVER OANSIMSS


[서버 디버깅]
※JAMSIL_TEST $DATA12 OPRDAT 169> STATUS *,PROG $DATA12.OPROBJ.OANSIMSO
Process Pri PFR %WT Userid Program file Hometerm
$Y3HJ 2,131 80 001 100,150 $DATA12.OPROBJ.OANSIMSO $ZHOME
※JAMSIL_TEST $DATA12 OPRDAT 170> DEBUG $Y3HJ,TERM
screen cobol 실행