&TAG     PROC  &P,0,&DISCEAT=2,&CARDEAT=3,&SAVEAREA=1,&ERROR=           SRC00010
SRC$NOTE NAME  NOTE                                                     SRC00020
SRC$POIN NAME  POINT                                                    SRC00030
.*                                                                      SRC00040
&TAG     DS    0H                                                       SRC00050
.*                                                                      SRC00060
         DO    '&P(0)'='NOTE'                                           SRC00070
         MVC   0(28,&P(3)),0(&P(1))                                     SRC00080
         MVC   28(28,&P(3)),0(&P(2))                                    SRC00090
         ENDO                                                           SRC00100
.*                                                                      SRC00110
         DO    '&P(0)'='POINT'                                          SRC00120
         MVC   0(28,&P(1)),0(&P(3))                                     SRC00130
         MVC   0(28,&P(2)),28(&P(3))                                    SRC00140
         L     &P(3),24(,&P(1))                                         SRC00150
         XC    0(4,&P(3)),0(&P(3))                                      SRC00160
         L     1,12(,&P(2))                                             SRC00170
         DO    '&ERROR'=''                                              SRC00180
         SETCS (1),R                                                    SRC00190
         ENDO                                                           SRC00200
         DO    '&ERROR'=''=0                                            SRC00210
         SETCS (1),R,&ERROR                                             SRC00220
         ENDO                                                           SRC00230
         TM    16(&P(2)),X'80'                                          SRC00240
         BZ    S$NP&SYSNDX                                              SRC00250
         LA    0,1                                                      SRC00260
         L     1,20(,&P(2))                                             SRC00270
         DO    '&ERROR'=''                                              SRC00280
         GETCS (1),(0)                                                  SRC00290
         ENDO                                                           SRC00300
         DO    '&ERROR'=''=0                                            SRC00310
         GETCS (1),(0),&ERROR                                           SRC00320
         ENDO                                                           SRC00330
S$NP&SYSNDX  EQU    *                                                   SRC00340
         ENDO                                                           SRC00350
         END                                                            SRC00360
