         PROC  &P,1                                                     SWA00010
SWAP     NAME  0                                                        SWA00020
         LCL   &X                                                       SWA00030
&X       SET   '&P(1)'(1,1)                                             SWA00040
         DO    0                                                        SWA00050
.*       SWAP  CCB-ADDR                                                 SWA00060
         ENDO                                                           SWA00070
         DO    '&P(1)'=''                                               SWA00080
         PNOTE 'P','CCB-ADDR IS NOT SPECIFIED'                          SWA00090
         NOP   *                        PATCH AREA                      SWA00100
         GOTO  .SWAP1                                                   SWA00110
         ENDO                                                           SWA00120
         DO    ('&P(1)'='(1)')++('&P(1)'='1')                           SWA00130
         GOTO  .SWAP1                                                   SWA00140
         DO    (('A'<'&X')**('&X'<'Z'))++('&X'='A')++('&X'='Z')++('&X'=CSWA00150
               '$')++('&X'='#')++('&X'='@')++('&X'='?')                 SWA00160
         CNOP  0,4                                                      SWA00170
         L     1,*+8                                                    SWA00180
         B     *+8                                                      SWA00190
         DC    A(&P(1))                                                 SWA00200
         ENDO                                                           SWA00210
         ENDO                                                           SWA00220
.SWAP1   LABEL                                                          SWA00230
                   SVC   22                                             SWA00240
         END                                                            SWA00250
