- ALPHA CHECKING AND CONVERT TO NUMERIC   A-> 0 B -> 1

 OSS1STP1 EQU   *
          CLI   0(RDA),X'C1'        LETTER LESS THAN A?
          BL    OSSERR1             YES, ERROR
          CLI   0(RDA),X'E9'        LETTER HIER THAN Z?
          BH    OSSERR1             YES, ERROR
          TR    0(1,RDA),TRANTABL   TRANSLATE THIS LETTER TO A VALUE
          LA    RDA,1(,RDA)         BUMP TO NEXT LETTER
          CLI   0(RDA),X'00'        ZERO?
          BNE   OSS1STP1            NO, GO TEST IT
 

 TRANTABL EQU   *-193
 TABLE    EQU   *
          DC    X'000102030405060708'
          DC    XL7'0'
          DC    X'090A0B0C0D0E0F1011'
          DC    XL8'0'
          DC    X'1213141516171819'
          DS    0F
 OSS1AND  DC    X'00007FFF'
          LTORG
 *        FINIS                                                     F001
 
- EXECA MACRO
 
           EXECA RDB,MVC,EBW008,0(RGF)
 

- PARS DATE -> CAL DATE

   LA  RGE,EBW000                *RGE: FF
   MVI 0(RGE),X'FF'
   LH  RGF,QA2DAT                #RGF:19AD        

   ENTRC UCDR
 
   MVC  OLODAT(5),0(RGF)          29 JUL
   MVC  EBX048(2),5(RGF)                 84
 

 .   CAL -> PARS

    LA    RGF,EBW008              *RGF: 29JUL84
    LA    RGE,EBW064
    MVI   0(RGE),X'00'
    ENTRC UCDR                                            |
    LTR   RGE,RGE                  #RGE : pars date
    BZ    OXB1A0
    STH   RGE,QF2STP

- SCANA   FLT CHECK 시  에 사용

  SCANA    MAX=RDA,CHK1=NONUM,GOTO1=ODL5RB,OPTION=EXE

 
     Case of Input is "123/"  result of rdb has 4
 
     RG1 have to point start of message . RDA have max value of checking char.
 
  SCANA  AT=RG1,COUNT=RGC,MAX=9,CHK1=AC'-',GOTO1=UGKTP10,FALSE=UGK2S1,OPTION=EXE
 
     AT 를 CODING 시 반드시 16 COLUMN 에 맞출것
     최초를 RG1 이 가리키고  COUNT 는 RGC 에 있고 첫째 CHECK는 ACCENDING 으로 C'-'
     이고 OK 면 UGKTP10 으로 가고 NO 면 UGK2S1 으로 가라
 

 
-  Program rules
 
   . You have to WAITC after FILNC
   . AAA have to have on data level   When you goto UIO1  with EXIT OPTION .
   . ENTDC 할때 D5,D6 는 ,d5
   . FMSG uses EBX0000 ~ EBX004
 
 
 

- ZDATA A * 0002C892.AA./AGB-*SPR

- GLOBAL TIME VALUE

  ZDMONL
 
   GLOBZ REGR=RGD
   @C0CLO         system time  :min         AAA time :11:13   then x'0B0D'
 
   @U1GMT         X'F2F3F4F1'     23:41
   @U1TYM         X'F0F8F4F1'     08:41
   @U1MID         X'0084FA80'           LOCAL MIDNIGHT VALUE
   @C0CLO         CURRENT TIME
   @U1ZID         GMT MIDNIGHT VALUE
   @GMFDA         KDT GMT DAY
   @U1DAY         KDT LOCAL DAY
   @U1DMO             U1DAY-1
   @TTHDM(9)      LOCAL
   @GMTDY         GMT
   @U1DMT         LOCAL DATE
 
  * @C0CLO - @U1MID = @U1TYM   local time min
    @C0CLO - @U1ZID = @U1GMT

   U1ZID
 
- RLCHA

  이마크로 수행시 LA RDA,12  와 CREMC RLCH 로 됨
  ID 와 RCC 가 맞지않으면 SYSRA 발생함.
 

12 BYTES

F1

C1

00

3F

80

02

12

04

^
|                      FILE ADDRESS
*RDB

- CINFC

  CINFC  R,CM1IOB             RVA1 APL

  L      RDB,88(RDA)         GET NO OF AVAIBL 4 K BLOCKS
  CH     RDB,=H'20'            BELOW ACCEPTABLE LEVEL ?
  BNL    RVA1005              NO CONTINUE PROCESSING