rexx를 통해 제한된 sdsf 정보

I wrote this code, 이는 SDSF에서 정보를 옵션 S와 같이 파일에 씁니다. 그래서, 내 질문에, 나는 모든 정보 (JESMSGLG, JESJCL, JESYSMSG .._ SDSF에서? 내가 뭔가를 z/OS의 V1을 위해입니다.rexx를 통해 제한된 sdsf 정보

parse upper arg prefix owner hiqual       
rc=isfcalls("on")           
isfprefix = prefix           
isfowner = owner           
ADDRESS SDSF "ISFEXEC ST"         

do ix=1 to JNAME.0           
    do until isfnextlinetoken=''       
     ADDRESS SDSF "ISFBROWSE ST TOKEN('"token.ix"')"  
     say token.ix          
     isfstartlinetoken = isfnextlinetoken    
    end              

DSN = userid()||'.'||JNAME.IX||'.'||JOBID.IX    

ADDRESS TSO             
"ALLOC DA('"DSN"') F(DATA3)        
    LIKE('userid.TEMP2') NEW"         
    "EXECIO * DISKW DATA3 (STEM isfline."      
    "EXECIO 0 DISKR DATA3 (FINIS"        
    "FREE FI(DATA3)"           
drop isfline.            
end               

rc=isfcalls("off")           
exit

출처

2016-06-10 Andrei Kaliachka

실제 코드를 스크린 샷이 아닌 질문에 게시 할 수 있습니까? 코드를 복사하고 테스트하는 것이 훨씬 쉬울 것입니다. –

이 exec의 요점은 무엇입니까? 지정된 접두어와 소유자에 대한 모든 출력을 플랫 파일에 작성합니까? –

코드로 코드를 업데이트합니다. 나는 모든 출력을 줄기로 작성한 다음 파일에 줄을 쓰고이 매개 변수를 사용하여 파일을 작성합니다. 관리 클래스. . : UMMB5U64 할당 된 실린더 : 100 스토리지 클래스. . . : NNMN 할당 된 범위. : 1 볼륨 시리얼. . . : HADAZ6 장치 유형. . . . : 3390 데이터 클래스. . . . . : DEFAULT 조직입니다. . . : PS 레코드 형식. . . : FB 레코드 길이. . . : 133 블록 크기. . . . : 27930 1 차 실린더 : 100 2 차 실린더 : 10 –

가 여기에 도움이 될 몇 가지 코드는 유일 DVGLOG DDNAME 필요를 (안 쓸 수 있습니다 ISFCOL var를 사용하여 반환 된 열을 제한 함.

exec는 모든 작업 이름과 소유자 (SDSF 변수 JNAME 및 OWNERID)를 모두 나열합니다. JES2 대기열의 작업

/* REXX */              
rc=isfcalls('ON')            
    /* Access the ST panel */         
Address SDSF "ISFEXEC ST"          
ISFCOLS = 'JNAME OWNERID'          
if rc<>0 then             
    Exit rc              
    /* Get fixed field name from first word */    
    /* of isfcols special variable   */    
fixedField = word(isfcols,1)         
Say "Number of rows returned:" isfrows       
     /* Process all rows */         
do ix=1 to isfrows            
    Say "Now processing job:" value(fixedField"."ix)    
      /* List all columns for row */      
    do jx=1 to words(isfcols)         
    col = word(isfcols,jx)          
    Say " Column" col"."ix "has the value:" value(col"."ix) 
    end               
end               
rc=isfcalls('OFF')            
exit

나는 그것을 수정하지 않았습니다. DDNAME에 대한 검색을 테스트 해보십시오. 명령을 각 출력에 대해 사용합니다. DVGLOG의 의미가 확실하지 않지만 SDSF 버전에서 찾을 수있는 분야가 아닙니다.

출처

2016-06-10 11:37:26

rexx를 통해 제한된 sdsf 정보

답변

관련 문제