F10 기능이 다시 프로그램에 제어를 반환하지 않습니다.

나는 f10 - fold/drop을 누를 때 나타나는 두 개의 추가 필드를 추가 한 디스플레이 파일을 가지고 있습니다. 사용자가 레코드를 폴드하면 바닥 글 표시가 f10 = 펼치기로 변경됩니다. 디스플레이가 펼쳐지면 디스플레이가 f10 = fold로 변경되어야합니다.F10 기능이 다시 프로그램에 제어를 반환하지 않습니다.

  A*************************************************************** 
    A* LIST OF LOADS WITH BOL SUBFILE CONTROL      
    A*************************************************************** 
    A   R RLG610C1     SFLCTL(RLG610S1)   
    A          SFLSIZ(0011)    
TPA01A          SFLPAG(0005)    
    A          OVERLAY     
    A N71         SFLDSP     
    A N71         SFLDSPCTL     
    A 71         SFLCLR     
    A 91         SFLEND(*MORE)    
TPA01A N45         SFLDROP(CF10)    
TPA01A 45         SFLFOLD(CF10)    
TPA01A          SFLMODE(&MODE)   
    A   RRN   4S 0H  SFLRCDNBR

꼬리말 필드는 다음과 같이 설정되고 :

TPA01A 45        23 25'F10=Fold'  
TPA01A          COLOR(BLU)  
TPA01A N45        23 25'F10=Unfold' 
TPA01A          COLOR(BLU)

문제는 사용자 프레스 F10는, 표시 변화가 예상 될 때이다. 그러나 바닥 글을 변경하려면 입력 히트가 필요합니다.

* IN45 표시기 필드 값을 기준으로 폴드/폴드 옵션 표시를 제어하는 코드가 아래에 있습니다. 그러나 프로그램의 컨트롤은 Enter 키를 눌러 경우에만, 나는 SFLFOLD 및 SFLDROP 프로그램에 제어를 반환하는 경우 컨트롤이 지금은 궁금 단순히 기본적으로

If Mode = '1';     
      *IN45 = '0';     
      ElseIf Mode = '0';    
      *IN45 = '1';     
      EndIf;

F10

을 눌러에서 프로그램으로 돌아갑니다 기대 여기에 도달 .

필사적으로 도움이됩니다.

@charles는

난 이미 당신이 찰스를 언급 한 것을 시도했다. 하지만 그냥 작동하지 않습니다

 A   R RLG610C1     SFLCTL(RLG610S1)  
    A          CF10(10 'FOLD/UNFOLD') 
    A          SFLSIZ(0011)   
TPA01A          SFLPAG(0005)   
    A          OVERLAY    
    A N71         SFLDSP     
    A N71         SFLDSPCTL    
    A 71         SFLCLR     
    A 91         SFLEND(*MORE)   
TPA01A N45         SFLDROP(CF10)   
TPA01A 45         SFLFOLD(CF10)

F10을 누르면 접기/펼치기가 완벽하게 작동합니다. 그러나 컨트롤은 단순히 프로그램에 적용되지 않습니다. 나는 이것을 심지어 파일 레벨에서 시도해 보았다. 거기에서도 작동하지 않았습니다. 모든 제안을 환영합니다.

출처

2017-04-25 Anonymous

5250 장치는 (상대적으로) 스마트 장치이며 멍청한 장치는 아닙니다.

SFLFOLD 및 SFLDROP가 장치에서 처리되므로 F10 키를 누르면 프로그램에 제어가 반환되지 않습니다.

그냥 당신이 정말로, 제어 프로그램에 반환이 서브 파일 제어 레코드에서 정규 CF/CA 키로 F10를 구성하려면 바닥 글이

F10=Fold/Unfold

이 포함되어 있습니다. 그리고

 A          CF10(10 'FOLD/UNFOLD')   
TPA01A N45         SFLDROP(CF24)   
TPA01A 45         SFLFOLD(CF24)

따라서, 제어 프로그램으로 돌아갑니다 ... SFLFOLD/SFLDROP 키워드에 더미 장착 Fxx 키를 사용합니다. 시스템이 스위치를 초기화하지 않았기 때문에 모드를 확인하는 대신 F10을 눌렀는지 확인해야합니다.

출처

2017-04-25 14:26:44 Charles

안녕하세요 찰스, 나는 이걸 시도 했어.하지만 여전히 컨트롤은 그냥 프로그램으로 돌아 오지 않아. –

서브 파일 레코드 또는 서브 파일 컨트롤 레코드에 넣었습니까? 다른 것을 시도하십시오. 솔직히, 그것이 작동할지 모르겠지만 ... 나는 바닥 글 변경을보고 기억하고있는 것 같습니다 ... – Charles

안녕하세요 찰스, 나는 그것을 서브 파일 컨트롤 레코드와 디스플레이 파일 레벨에도 넣으려고했습니다. 서브 파일 레코드 레벨을 넣으면 컴파일이 실패합니다. –

F10 기능이 다시 프로그램에 제어를 반환하지 않습니다.

답변

관련 문제